var s, d, r:real;
p:string;
begin
p:='π';
//S=πr² d=2πr
write('Введите радиус окружности: ') ;
readln(r);
d:=2*r;
s:=r*r;
writeln('Длина окружности равняется: ', d, p);
write('Площадь окружности: ', s, p);
end.
