Program pr1;
var r: integer;
begin
writeln('Радиус');
readln(r);
writeln('Длина = ', Pi*2*r);
writeln('Площадь = ', Pi*r*r);
end.