Определить сколько бутербродов можно сделать. Если выдается :
H - общий вес хлеба
H1 - хлеб на один бутерброд
M - общий вес масла
M1 - вес масла на один бутерброд
K - общий вес колбасы
K1 - вес колбасы на один бутерброд
B - общее количество бутербродов
Например На бутерброд
H- 1000 H1 - 100
M- 600 M1 - 50
K - 500 K- 50
B - 10
H - 0
M - 100
K - 0

объясни что ты тут делал а то немного не понимаю if h div h1 < m div m1 then b:=h div h1 else b:=m div m1;if k div k1 < b then b:=k div k1;

и да я забыл программа сама должна высчитать хлеб на 1 бутерброд вес масла на 1 бутер и колбасы на 1 бутер

С помощью h div h1 (m div m1, k div k1) определяется на сколько бутербродов хватит хлеба, масла или колбасы соответственно. Из этих количеств выбирается минимальное значение. В примере: хлеба хватит на 1000 div 100 = 10 бутербродов, масла - на 600 div 50 = 12; колбасы - на 500 div 50 = 10. Значит, из данного количество продуктов можно сделать 10 полноценных бутербродов.

var h,h1,m,m1,k,k1,b:integer;beginwrite('h, h1: '); readln(h,h1);write('m, m1: '); readln(m,m1);write('k, k1: '); readln(k,k1);if h div h1 < m div m1 then b:=h div h1 else b:=m div m1;if k div k1 < b then b:=k div k1;writeln('b = ',b);end.Пример:h, h1: 1000 100m, m1: 600 50k, k1: 500 50b = 10С помощью h div h1 (m div m1, k div k1) определяется на сколько бутербродов хватит хлеба, масла или колбасы соответственно. Из этих количеств выбирается минимальное значение. В примере: хлеба хватит на 1000 div 100 = 10 бутербродов, масла - на 600 div 50 = 12; колбасы - на 500 div 50 = 10. Значит, из данного количество продуктов можно сделать 10 полноценных бутербродов.