program zad;
uses crt;
var s1,s2,s:real;
l,r:integer;
Begin
writeln('введите внешний радиус кольца')
readln(r);
writeln('введите внутренний радиус кольца')
readln(l);
   s1:=pi*sqr(r);
   s2:=pi*sqr(l);
   s:=s1-s2;
writeln('площадь кольца равна',s);
readln;
End.