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