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

program zz1;
var
L, d, r : real; // задаем переменные не целого типа
begin
write(введите радиус окружности ); // вводим с клавиатуры начальный радиус окружности
read(r);
d:=2 * r; // вычисляем поперечник окружности по формуле
writeln( поперечник окружности = , d:5:2); // выводим ответ, 5 символов для всего числа и два знака после точки
L:=Pi * d; // вычисляем длину окружности по формуле
write( длина окружности = , L:5:2); // выводим ответ, 5 символов для всего числа и два знака после точки
end.