Функция Pi – математическая константа

Функция Pi в Delphi – это математическая константа.

Функция Pi: Получение площади и длины окружность круга

var
  myPi : Extended;
  diam : Integer;
begin
  diam := 10;

  // Показ длины окружности и площади круга
  // с диаметром - 10 см
  ShowMessage('Диаметр = '+IntToStr(diam));
  ShowMessage('Длина окружнрости = '+FloatToStr(Pi*diam));
  ShowMessage('Площадь = '+FloatToStr(Pi*(diam/2)*(diam/2)));
end;