Question

РЕШИТЕ ЗАДАЧУ НА ЯЗЫКЕ ПАСКАЛЬ! 

Даны радиусы большой и малой окружности r1,r2. Найти S заштрихованной фигуры СМОТРИТЕ В ВЛОЖЕНИЯ ФОТО

Answer 1

program p;

var

 r1,r2:integer;

pi,s:real;

begin

pi:=3,1428l

readln(r1,r2)

if r1>r2 then

s=pi*r1*r1-pi*r2*r2

else

s=pi*r2*r2-pi*r1*r1

writeln(s);

end.