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

Для решения задачи нужно использовать формулу площади кольца:

где:

R — больший радиус,
r — меньший радиус,
S — площадь кольца.

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

Программа на PascalABC:

pascal
program RingArea;

var
  r1, r2, R, r, S: real;

begin
  writeln('Введите два радиуса окружностей:');
  readln(r1, r2);

  if r1 > r2 then
  begin
    R := r1;
    r := r2;
  end
  else
  begin
    R := r2;
    r := r1;
  end;

  S := Pi * (R * R - r * r);

  writeln('Площадь кольца = ', S:0:2);
end.

Пояснение к программе:

Пользователь вводит два радиуса окружностей. Так как заранее неизвестно, какой из них больше, программа сравнивает r1 и r2. Больший радиус записывается в переменную R, а меньший — в переменную r.

После этого площадь кольца вычисляется по формуле:

pascal
S := Pi * (R * R - r * r);

Здесь Pi — встроенная константа в PascalABC, равная числу π.

Пример работы программы:

Введите два радиуса окружностей:
10 6
Площадь кольца = 201.06

Если ввести радиусы в обратном порядке, например 6 10, результат будет таким же.