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