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

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