Function Sqr (X : Real) : Real;
Sqr returns the square of its argument X.
None.
Sqrt, Ln, Exp
Program Example65; { Program to demonstrate the Sqr function. } Var i : Integer; begin For i:=1 to 10 do writeln (Sqr(i):3); end.