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

const
pi = 3.14;

var
L, R, S: real;

begin
write('Введите длину окружности: L = ');
readln(L);
R := L /(2 * pi); { <-- Вычисляем радиус }
S := pi * sqr(R); { <-- Вычисляем площадь }
writeln(' R = ', R:0:2); { <-- Выводим радиус на экран }
writeln(' S = ', S:0:2); { <-- Выводим площадь на экран }
readln
end.