Дана длина L окружности. Найти ее радиус R и площадь S круга, ограниченного этой окружностью, учитывая, что L = 2*Pi*R, S = Pi*R2. В качестве значения Pi использовать 3.14.В паскале, код нужен к задаче.

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

program CircleProperties;

var
L, R, S: real;
Pi: real = 3.14;

begin
write('Enter the length of the circumference: ');
readln(L);

R := L / (2 Pi);
S := Pi R * R;

writeln('Radius R = ', R:0:2);
writeln('Area S = ', S:0:2);
end.