var
r : real;
d : real;
begin
write('введите радиус окружности r=');
readln(r);
d := 2*r;
writeln('диаметр равен d=2r=', d);
end.
