Разработайте алгоритм для вычисления площади крута: s = πr2.

Лень писать алгоритм поэтому напишу программу на паскале. Прочитаешь код поймешь алгоритм.
program sokr;
var a,b:real;
begin
writeln('Введите радиус');
readln(a);
b:=(a*a)*3.14;
writeln('Площадь круга равна ',b);
end.