Protótipo: function sqr(x: real): real;
Descrição: Retorna o quadrado de x.
Exemplo:
program exemploSqr; var i : Integer; begin for i:=1 to 10 do writeln(sqr(i):3); end.