program CircleProperties;
var
radius: real;
circumference, area: real;
begin
write('Введите радиус окружности: ');
readln(radius);
circumference := 2 * Pi * radius;
area := Pi * radius * radius;
writeln('Длина окружности:', circumference:0:2);
writeln('Площадь круга:', area:0:2);
end.

Программа запрашивает у пользователя радиус окружности, а затем вычисляет длину окружности и площадь круга, используя формулы 2 * Pi * radius и Pi * radius * radius. Результаты выводятся с точностью до двух знаков после запятой.