var
  number, squareRoot : Extended;

begin
  // Квадратный корень 225 = 15
  number  := 225;
  squareRoot := Sqrt(number);
  ShowMessageFmt('Квадратный корень %f = %f',[number, squareRoot]);

  // The square root of 3.456 = 1.859...
  number  := 3.456;
  squareRoot := Sqrt(number);
  ShowMessageFmt('Квадратный корень %7.3f = %12.12f',[number, squareRoot]);

  // Квадратный корень бесконечности тоже бесконечность
  number := Infinity;
  number := Sqrt(number);
  ShowMessageFmt('Квадратный корень бесконечности = %f',[number]);
end;