решить задачу

D - Обыкновенные дроби
Максимальное время работы на одном тесте: 2 секунды
Максимальный объем используемой памяти: 64 мегабайта
Имя входного файла: input.txt
Имя выходного файла: output.txt

Вам даны две обыкновенные дроби: A/B и C/D, с которыми нужно произвести арифметическое действие и представить результат в виде несокращаемой дроби или целого числа.
Числители целые и не превосходят 10⁹ по модулю.
Знаменатели целые, положительные и не превосходят 10⁹.

Входные данные
На единственной строке через пробел:
числитель первой дроби A,
знаменатель первой дроби B,
арифметическое действие, одно из:
add — сложить A/B и C/D,
subtract — из A/B вычесть C/D,
multiply — умножить A/B на C/D,
divide — разделить A/B на C/D.
числитель второй дроби C,
знаменатель второй дроби D.

Выходные данные
Единственное число, если результат — целое число.
Числитель и через пробел знаменатель результата, если результат — дробь.

Программа представлена на скрине.

Далее под константой будет пониматься макроопределение (символическая константа)

Были созданы константы для обозначения флагов ингредиентов. Им даны осмысленные названия. Также была создана константа для формирования пустого заказа.

int ingredientsCount(Pizza&); - возвращает количество ингредиентов.

void addCheese(Pizza&); - добавляет в заказ сыр

void removeOnion(Pizza&); -  убирает из заказа лук

void togglePineapple(Pizza&);  - переключает ананасы

void addOnionIfMushroomsExist(Pizza&); - добавляет лук если есть грибы

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var (q,k):=ReadInteger2('Укажите номера строк q и k:');
  Assert((k<>q) and k.Between(1,n) and q.Between(1,n),'Неверная пара (q,k)');
  k-=1; q-=1; // перешли к индексам
  var rk:=a.Row(k);
  if k<q then begin
    for var r:=k+1 to q do a.SetRow(r-1,a.Row(r));
    a.SetRow(q,rk)
    end
  else begin
    for var r:=k-1 downto q+1 do a.SetRow(r+1,a.Row(r));
    a.SetRow(q+1,rk)
    end;
  Writeln('*** Результат ***'); a.Println(4)
end.

Примеры
Количество строк и столбцов в матрице: 5 8
*** Исходная матрица ***
  32  -6 -66  81  84   0  50 -83
  93   5  90 -33  88  30  -5  85
 -46  35 -22  74 -66   8  -3 -86
 -23 -81 -82  30  -1 -71  28  19
   0 -95 -30 -46 -24 -77  38  49
--------------------------------
Укажите номера строк q и k: 4 1
*** Результат ***
  93   5  90 -33  88  30  -5  85
 -46  35 -22  74 -66   8  -3 -86
 -23 -81 -82  30  -1 -71  28  19
  32  -6 -66  81  84   0  50 -83
   0 -95 -30 -46 -24 -77  38  49

Количество строк и столбцов в матрице: 4 3
*** Исходная матрица ***
 -68  53 -35
 -83  78 -78
  99  -4  -9
 -86  11 -30
------------
Укажите номера строк q и k: 2 4
*** Результат ***
 -68  53 -35
 -83  78 -78
 -86  11 -30
  99  -4  -9