Кто шарит в базах данных?
в телеге скину

Begin
Writeln('Введите имя игрока ');
var name := ReadString;
Writeln('Введите сумму ');
var sum := ReadInteger;
while True do
begin
Writeln('Введите ставку от ', 1, ' до ', sum);
var stavka := ReadInteger;
if stavka > sum then
writeln('Ставка не может превышать имеющиеся наличные')
else
begin
sum -= stavka;
Writeln('Введите число от 1 до 36');
var number := random(1, 36);
var getnumber := ReadInteger;
if (getnumber < 1) or (getnumber > 36) then
Writeln('Неверное число. Вы потеряли ставку!')
else
if number = getnumber then
begin
Writeln('Вы угадали! Вы получаете 36х ставку');
sum += (36 * stavka);
end
else
Writeln('Не угадали. Вы потеряли ставку!')
end;
writeln;
Writeln('Имя игрока ', name);
Writeln('Текущие деньги ', sum);
writeln;
if (sum <= 0) then
begin
Writeln(name, ' , Вы Проиграли! Надеюсь, Вам повезет в следующий раз');
break;
end;
end;
end.

1) Одновременно запускаем часы на 3 и 8 минут. После того как истекут часы на 3 мин. - переворачиваем их и ждем еще 3 мин. И снова переворачиваем.
2)  Наблюдаем за часами на 8 мин. после 1-го пункта в них осталось песка на 2 минуты. Ждем пока они истекут и сразу начинаем варить зелье.
3) Тем временем в малых часах осталась одна минута, когда она истекает просто перевернем их два раза, тем самым зелье будет вариться 7 минут. 
(1 мин после 1-2 пунктов + 3 мин + 3 мин. = 7 мин.).

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