var s,p,r,pi:real;
begin
writeln ('Введите радиус: ');
readln (r);
pi:=3.14;
s:=pi*sqr(r);
p:=2*pi*r;
write ('Площадь: ',s:5:2,' Длина: ',p:5:2);
end.