Объяснение:
const Pi = 3.1415; //Указание значения числа Пи
var
r: real; // радиус круга
S: real; // площадь круга
begin
write('Введите радиус круга: '); //Диалог пользователя
readln(r); //Считывание значения радиуса
S := Pi*r*r; //Вычисление площади
writeln('Площадь круга равна ',S); //Вывод значения
end. //Конец программы
