program turbo;
uses crt;
var
i,n:integer;
begin
clrscr;
for i: 1 to 3 do
readln(n);
if n>= 0 then
writeln(n,'^2 =',sqr(n));
end;
writeln('press enter');
readln;
end.
program turbo;
uses crt;
var
i,n:integer;
begin
clrscr;
for i: 1 to 3 do
begin
readln(n);
if n>= 0 then
writeln(n,'^2 =',sqr(n));
end;
writeln('press enter');
readln;
end.