var a, b:real;
begin
   read (a, b);
   writeln(pi*abs(a*a-b*b):0:10);
end.
P.S.

Var
  r1, r2, s: real;

begin
  Write('Введите через пробел внутренний и наружный радиусы кольца: ');
  Readln(r1, r2);
  s := Pi * (sqr(r2) - sqr(r1));
  Writeln('Площадь кольца равна ', s:0:5)
end.

Тестовое решение:

Введите через пробел внутренний и наружный радиусы кольца: 3.85 7.12
Площадь кольца равна 112.69490