Даны два круга с общим центром и радиусом r1> r2. вычислить площадь кольца. . я вас .

var R1, R2, s1, s2, s:real;
begin
   read (R1, R2);
   s1:=3.14*R1*R1;
   s2:=3.14*R2*R2;
   s:=s1-s2;
   writeln (s:0:3);
end.