Составить алгоритм и программу вычисления площади форма значение r водится с клавиатуры.

Const r1=20.0;
var R2,Pi:real;
begin
  Pi:=4*arctan(1);
  writeln('Введите радиус'); readln(R2);
  writeln('Результат: ',Pi*(sqr(R2)-sqr(r1)))
end.