найти площадь кольца, если внутренний радиус которого равен 20, а внешний заданному числу r (r>20).

program Ring;

const
  R = 20.0;
var
  R1: real;
begin
  readln(R1);
  writeln('S=', Pi * (sqr(R1) - sqr®));
end.