var a :real;
begin
read (a);
a:=a/3.14;
a:=sqrt(a);
writeln (a*3.14*2);
end.
// S=pi*R*R;
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.