Дана длина окружности. Найти площадь круга ограниченного этой окружностью. В качестве значения Pi использовать 3.14. Программа в паскале.

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

program CircleArea;
var
circumference, radius, area: real;
begin
// Ввод длины окружности
write('Введите длину окружности: ');
readln(circumference);
// Расчет радиуса
radius := circumference / (2 * 3.14);
// Расчет площади круга
area := 3.14 * radius * radius;
// Вывод результатов
writeln('Площадь круга: ', area:0:2);
end.

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