Program Sqr1;

{ Program to demonstrate the Sqr function. }
Var
  i : Integer;

begin
  For i:=1 to 10 do
    writeln(Sqr(i): 3);
end.