varr,h,s:real;beginRead(r);h:=2*Pi*r;s:=2*pi*sqr(r);Writeln('Площадь круга: ', S:5:2);Writeln('Периметр окружности: ', h:5:2);end.
var
r,h,s:real;
begin
Read(r);
h:=2*Pi*r;
s:=2*pi*sqr(r);
Writeln('Площадь круга: ', S:5:2);
Writeln('Периметр окружности: ', h:5:2);
end.