Необходимо произвести закупку школьных принадлежностей на определенную сумму. Известна цена каждого товара. Даны ограничения на максимальное и минимальное
количество закупаемого товара (рис. П6.19). Определите
оптимальное количество закупаемых товаров.

буфер обмена,перетаскивание,сохранение в файл

3  учеников этого класса любят все три вида спорта

var x1,x2,x3,x4: integer;

function max(a,b: integer): integer

begin

    if a> b then max: = a

    else max: =b;

end;

begin

  read(x1,x2,x3,x4);

  x1: =max(x1,x2);

  x2: =max(x3,x4);

  x1: =max(x1,x2);

  writeln(x1);

end.

сад гад год код кот