Подарки. 4/5 тестов

[RusseLfStyle]

Задача не проходит 1 тест. Я пробывал тестировать несколько вариантов. Все работало. Сам не нашел суть ошибки. Подскажите, что подрихтовать в коде, чтоб все сработало.


В каждый подарочный набор входит 1 ручка, 2 линейки и 4 тетради. На складе имеется a ручек, b линеек и c тетрадей. Сколько всего подарочных наборов можно собрать?
Входные данные:
Во входном потоке в первой строке задано три целых числа: a, b и c. (0 < a, b, c < 30000)
Выходные данные:
Вывести единственное целое число - количество подарочных наборов

Пример входного файла (input.txt):
1 2 4

Пример выходного файла (output.txt):
1



var a,b,c,k,d,e,f:integer;
begin
read(a,b,c);
k:=0;
d:=b div 2;
e:=c div 4;
if (d<a)and(d<e) then f:=d
else begin
if (e<d)and(e<a) then f:=e;
end;
if ((d>a) and (e>a))or ((d=a)and(e=a)) then
f:=a;
k:=k+f;
writeln(k);
end.

[VIK_aka_TOR]

var a,b,c,f:integer;
begin
read(a,b,c);
b := b div 2;
c:=c div 4;
if (b<=a)and(b<=c) then f:=b
  else 
    if (a<=b)and(a<=c) then f:=a
       else  
          if (c<=b)and(c<=a) then f:=c;
writeln(f);
end.

подправил...

[RusseLfStyle]

Спасибо. Все получилось.