Написати алгоритм і програму знаходження площі S кола радіусом r

Объяснение:

const Pi = 3.1415; //Указание значения числа Пи  

var  

 r: real; // радиус круга

 S: real; // площадь круга

begin

 write('Введите радиус круга: '); //Диалог пользователя

 readln(r); //Считывание значения радиуса

 S := Pi*r*r; //Вычисление площади  

 writeln('Площадь круга равна ',S); //Вывод значения

end. //Конец программы