Написать программу в паскале! Написать программу при помощи процедуры, которая по известному радиусу возвращает в основную программу значения площади круга и длины окружности. Входящие данные; R (радиус) Выходящие данные: S (площадь), L (длинна окружности).

Предыдущий
вопрос Следующий
вопрос

program CircleAreaAndPerimeter;
var
R, S, L: Real;
procedure CalculateAreaAndPerimeter(radius: Real; var area, perimeter: Real);
begin
area := Pi * radius * radius;
perimeter := 2 * Pi * radius;
end;
begin
Write('Enter the radius of the circle: ');
ReadLn(R);
CalculateAreaAndPerimeter(R, S, L);
WriteLn('Area of the circle: ', S:0:2);
WriteLn('Perimeter of the circle: ', L:0:2);
end.

Программа запрашивает у пользователя радиус круга, затем вызывает процедуру CalculateAreaAndPerimeter, которая вычисляет площадь и длину окружности по заданному радиусу. Наконец, программа выводит значения площади и длины окружности на экран.