. Дана длина окружности L. Отыскать радиус и поперечник данной окружности

program zz1;

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

begin

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

read(L);  

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

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

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

writeln( Если длина окружности равна , L, то ее диаметр равен , D:5:2);

end.