Написать на языке PascalABC решение следующей задачи: найдите площадь кольца, ограниченного двумя окружностями. Радиусы произвольные.

Var r1, r2, area1, area2, area: real;

begin

//ввод необходимых характеристик

Write ('Введите радиус первой окружности: '); Readln (r1);

Write ('Введите радиус второй окружности: '); Readln (r2);

//площадь первой окружности

area1:=pi*r1*r1;

//площадь второй окружности

area2:=pi*r2*r2;

//площадь кольца

If area1>=area2 then area:=area1-area2 else area:=area2-area1;

Writeln ('Площадь кольца равна ', area);

end.