program CalculateCircleArea;

var

 radius, area: real;

begin

 // Вводим значение радиуса с клавиатуры

 write('Введите радиус круга: ');

 readln(radius);

 // Вычисляем площадь круга

 area := pi * radius * radius;

 // Выводим результат на экран

 writeln('Площадь круга с радиусом ', radius, ' равна ', area:0:2);

 // Ожидаем ввода, чтобы окно консоли не закрылось сразу после вывода результата

 readln;

end.