var a: real;
begin
writeln ('введите число которое нужно возвести в квадрат');
readln (a);
write(a,'^2=');
a:=a*a;
write(a);
end.
var a: real;
begin
writeln ('введите число которое нужно возвести в квадрат');
readln (a);
write(a,'^2=');
a:=a*a;
write(a);
end.