var r:real;
begin
writeln ('Введите r');
readln (r);
writeln ('Длина окружности равна ',2*3.14*r);
writeln ('Площадь окружности равна ',3.14*r*r);
end.