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