В каждый подарочный набор входят 1 ручка 2 линейки 4 тетради. имеется а линеек, б тетрадей, с ручек. сколько получиться подарочных наборов. в делфи

var a,b,c,d,e,f:longint;begin readln(a,b,c); d:=a div 2; e:=b div 4; f:=c; if (d<=e) and (d<=f) then write(d) else if (e<=d) and (e<=f) then write(e) else write(f); readln;end.