Написать на языке 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.