Паскаль Напишите программу (с комментариями), выселяющую площадь круга через радиус. Значение радиуса 9 ввести с клавиатуры. Результат вычисления представьте с одной цифрой после точки.

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

program CircleArea;
var
radius: real;
area: real;
begin
// Запрашиваем радиус у пользователя
writeln('Введите радиус круга: ');
readln(radius);
// Вычисляем площадь круга по формуле S = Pi * r^2
area := 3.14 * radius * radius;
// Выводим результат с округлением до одного знака после точки
writeln('Площадь круга: ', FormatFloat('0.0', area));
end.

После выполнения программы и ввода радиуса круга, будет выведено значение площади круга, округленное до одного знака после точки.