Вкаждый подарочный набор входят 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.