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

var r:real;

begin

write ('Введите радиус окружности: ');

read(r);

writeln ('Диаметр равен: ', r*2:0:3);

writeln ('Длина окружности равна: ', 2*pi*r:0:3);

end.