Тема: Помощь в програмировании

Вот условие:

Задача G. Спирт
(Время: 1 сек. Память: 16 Мб)

Каждому школьнику из курса органической химии известна формула молекулы этилового спирта – C2H5(OH). Откуда видно, что молекула спирта состоит из двух атомов углерода (C), шести атомов водорода (H) и одного атома кислорода (O).

По заданному количеству атомов каждого из описанных выше элементов требуется определить максимально возможное количество молекул спирта, которые могут образоваться в процессе их соединения.
Входные данные

Первая строка входного файла INPUT.TXT содержит 3 натуральных числа: C, Н и O – количество атомов углерода, водорода и кислорода соответственно. Все числа разделены пробелом и не превосходят 1018.
Выходные данные

В выходной файл OUTPUT.TXT выведите максимально возможное число молекул спирта, которые могут получиться из атомов, представленных во входных данных.

Не могу решить. Вот моё решение но оно не правильное.

var
a: array [0..3] of longint;
i, min: longint;

begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
readln(a[1], a[2], a[3]);
a[1] := a[1] div 2;
a[2] := a[2] div 6;
a[3] := a[3] div 1;
min := a[1];
for i := 2 to 3 do
if a[i] < min then min := a[i];
writeln(min);
end.

Уже решил. Забыл, что нельзя делать счётчик типа in64.