Talimat: Bir sayının karesini hesapla.
Kod:
Var
  number, sqrValue : Real;
{
  number = 5.0;
  sqrValue = Sqr(number);
  ShowMessage('Sqr(' + FloatToStr(number) + ') = ' + FloatToStr(sqrValue));
}