Домашние задания, мероприятия, школьные объявления.
3) Наборы структур данных, используемых для управления файлами
Const r1=20.0;
var R2,Pi:real;
begin
Pi:=4*arctan(1);
writeln('Введите радиус'); readln(R2);
writeln('Результат: ',Pi*(sqr(R2)-sqr(r1)))
end.