Var a:string;
b,c:integer;
beginwriteln('Привет, как тебя зовут?');
readln(a);
writeln(a, ', cколько тебе лет?');
readln(b);
writeln(a, ', и тебе ', b, 'лет, в каком году ты родился?');
readln(c);
writeln(c, ', хорошо!');
writeln('Мне пора идти, пока ', a, '!');
<span>end.</span>
Вода, лед и пар. Имеют одинаковый состав , но изменяются структуры строения.
Синих было N=2^2=4
Тогда всего шаров 24 +4=28
Var a,b,s:real;
begin
Writeln('Привет,я-alconafft');
a:=5;
b:=-3.5;
s:=a+b;
s:=2*s-b;
writeln('s= ',s);
end.