. Дана длина окружности L. Найти радиус и диаметр данной окружности из формулы L=2пR. Формат вывода результата «Если

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.