Определить план выпуска продукции, обеспечивающий наибольшую суммарную прибыль - Free Pascal (656)

Формулировка задачи:

В одном цехе производится женская обувь двух моделей. На изготовление одной пары обуви каждой модели требуется соответственно клей(в граммах) в количестве L1 и L2 и кожа(в дм) - K1 и K2. Прибыль от реализации одной пары каждой модели P1 руб. и P2 руб. Запасы клея - L граммов, кожи - K дм^2. Требуется определить план выпуска продукции, обеспечивающий наибольшую суммарную прибыль

Решение задачи: «Определить план выпуска продукции, обеспечивающий наибольшую суммарную прибыль»

Листинг программы

program z1;
var
  ma, l1, l2, k1, k2, n, m, sel_n, sel_m, sel_p, p1, p2, l, k : longint;
  
function GetMax(a : longint; b : longint) : longint;
begin
  if(a > b) then GetMax := a else GetMax := b;
end;
 
begin
  readln(l1, l2, k1, k2, p1, p2, l, k);
  sel_n := 0; sel_m := 0; sel_p := 0;
  ma := GetMax(l, k);
  for n := 0 to ma do
    for m := 0 to ma do 
    begin
      if ((l1 * n + l2 * m <= l) and (k1 * n + k2 * m <= k) and (p1 * n + p2 * m > sel_p))
      then begin
        sel_n := n;
        sel_m := m;
        sel_p := p1 * n + p2 * m;
      end;
    end;
  writeln(sel_n, ' пар первой модели; ', sel_m, ' пар второй модели');
end.

Объяснение кода листинга программы

Программа определяет функцию GetMax для нахождения максимального значения из двух.
В основной программе считываются значения переменных l1, l2, k1, k2, p1, p2, l, k.
Инициализируются переменные sel_n, sel_m, sel_p нулевыми значениями.
Вычисляется максимальное значение переменной ma из считанных значений.
В цикле от 0 до ma происходит перебор всех возможных значений n и m.
В каждой итерации цикла проверяется условие для выбора пары (n,m).
Если условие выполняется, то значения переменных sel_n, sel_m, sel_p обновляются.
После окончания циклов выводится значение переменных sel_n, sel_m.