составить программу для вычисления длинны окружности и ее диаметра.

program zz1;

var

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

begin

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

read (r);

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

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

L:=Pi * d; / / вычисляем длину окружности по формуле

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

end.