program CircleAreaAndPerimeter;

var
radius, area, perimeter: real;

begin
// Ввод радиуса круга
write('Введите радиус круга: ');
readln(radius);

// Вычисление площади круга
area := 3.14159 radius radius;

// Вычисление длины окружности
perimeter := 2 3.14159 radius;

// Вывод результатов
writeln('Площадь круга: ', area:0:2);
writeln('Длина окружности: ', perimeter:0:2);
end.