Ответы и объяснения

2013-11-28T20:55:20+04:00
Var
a,b:real;
begin
b:=1.5;
write('a=');
readln(a);
writeln('y=a+b^2=',a+b*b);
readln;
end.