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

program zz1;

var r, L, S:real; / /задаем переменные не целого типа

begin

write ('введите исходное значение длины окружности '); / /вводим с клавиатуры исходное значение L

read (L);

R:=L / 2 * pi; / / вычисляем радиус окружности по заданной формуле

writeln (' полученное значение радиуса окружности = ', R:5:2); / /выводим ответ в формате пять знаков для всего числа и два знака после запятой

S: = pi * R * R; / / вычисляем площадь окружности по заданной формуле

write (' полученное значение площади окружности = ', S:5:2); / /выводим ответ в формате пять знаков для всего числа и два знака после запятой

end.