fpcdocs/refex/ex65.pp


1
2
3
4
5
6
7
8
9

Program Example65;

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

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