Дана длина L окружности. Найти ее радиус R и площадь S

program zz1;

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

begin

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

read(L);  

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

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

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

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

end.