Написать программу на Паскале: Дана S круга. Найти его диаметр D и длину L окружности, ограничивающей этот круг, учитывая, что L = π×D, S = π×D2(в квадрате) /4

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

program CircleInfo;
var
S, D, L: real;
begin
write('Введите площадь круга: ');
readln(S);
D := sqrt((4 * S) / Pi);
L := Pi * D;
writeln('Диаметр круга: ', D:0:2);
writeln('Длина окружности: ', L:0:2);
end.

Программа сначала запрашивает у пользователя площадь круга S. Затем вычисляет диаметр D и длину окружности L по заданным формулам. В результате программа выводит найденные значения на экран.