[ApxaHGe1]

Код:

begin
Writeln ('Enter number .. ');
readln (i);
begin
n:=i*i;
Writeln (IntToStr(i)+'          '+IntToStr(n));
readln;
end;
end.

дальше сам