In unit System
System
Calculate the square of a value.
function Sqr(l: LongInt): LongInt
Sqr
X
None.
ex65
Program Example65; { Program to demonstrate the Sqr function. } Var i : Integer; begin For i:=1 to 10 do writeln (Sqr(i):3); end.
An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.