P_01_1.pas

const pi = 3.14159;

var R : integer;

begin
write('Введите радиус: ');
readln(R);

writeln('Длина круга = ', 2 * pi * R);
end.