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