program z;
var r:real;
begin
write ('Введите радиус круга: ');
readln(r);
writeln ('Длина круга равна: ', 2*pi*r:0:3);
writeln ('Площадь круга равна: ', pi*sqr(r):0:3)
end.
