Пользователь вводит внутренний и внешний
радиусы плоского кольца, представляющего собой часть плоскости между
двумя концентрическими окружностями. Программа выводит площадь
кольца. Если внешний радиус оказался меньше внутреннего, то программа
при этом должна сообщить об этом пользователю и корректно считать
площадь, поменяв местами радиусы(Паскаль)

//Pascal ABC.NET 3.1 сборка 1219Var rm,rb,s:real;begin readln(rm,rb); if rm>rb then  begin   writeln('Внутренний радиус больше внешнего');   swap(rm,rb);  end; s:=pi*(sqr(rb)-sqr(rm));writeln('S=',s);end.Пример ввода:74Пример вывода:Внутренний радиус больше внешнегоS=103.672557568463