Var
x,nb,nm,z,xm,xb : longint;
h,g,k : integer;
begin
writeln('Введите количество больших коробок.');
readln(nb);
writeln('Введите количество маленьких коробок.');
readln(nm);
writeln('Введите количество товара в больших коробках.');
readln(xb);
writeln('Введите количество товара в маленьких коробках.');
readln(xm);
writeln('Сколько товара помещается в вагон?');
readln(x);
z:= nb*xb +nm*xm;
if z <= x then<br>writeln('Все изделия поместятся в один вагон')
else
begin
h := z div x;
writeln('количество вагонов для погрузки всех товаров = ',h);
end;
g:= z div nb;k:= z div nm;
writeln ('освободиться ',g,' больших или ',k,' маленьких коробок');
end.