freepascal.compiler/docs/refex/ex65.pp

Program Example65;

{ Program to demonstrate the Sqr function. }
Var i : Integer;
    
begin
  For i:=1 to 10 do
    writeln (Sqr(i):3);
end.