var a: real;

begin

writeln ('введите число которое нужно возвести в квадрат');

readln (a);

write(a,'^2=');

a:=a*a;

write(a);

end.