var
  number, squared : Byte;
  float : Extended;

begin
  // Квадрат 15 = 225
  number  := 15;
  squared := Sqr(number);
  ShowMessageFmt('%d в квадрате = %d',[number, squared]);

  // Квадрат 17 = 289
  // Но результат превышает размер байта, соответственно результат = 289 MOD 256 = 33
  number  := 17;
  squared := Sqr(number);
  ShowMessageFmt('%d в квадрате = %d',[number, squared]);

  // The square of infinity is still infinity
  float := Infinity;
  float := Sqr(float);
  ShowMessageFmt('Бесконечность в квадрате = %f',[float]);
end;