===== PascalABC.NET =====
begin
var a := ReadArrInteger('a:', 10);
var b := ReadArrInteger('b:', 10);
var L := new List<integer>;
var (m, im) := (a[0] * b[0], 0);
for var i := 1 to a.High do
begin
var c := a[i] * b[i];
if c > m then
begin
L.Clear;
L.Add(i);
(m, im) := (c, i)
end
else if c = m then
L.Add(i);
end;
foreach var i in L do
Println(i + 1, a[i], b[i], a[i] * b[i] / 2)
end.
Наименование Макс. кол-во (шт) Цена, ед
Пирожки 2000 2
Шанежки 1500 4
Булочки 1200 1
Пирожное 700 8
Изделия
Наименование Количество
Пирожки 0
Шанежки 400
Булочки 0
Пирожное 700
1100 1100 склад
Максимальная выручка цеха 7200
Begin
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
writeln('████ ████');
writeln('█████████████');
end.