Олимпиада. Задача. Туплю, ничего не могу сделать

[Falshion]

var a,c,x:integer; 
b,d:real; 
begin 
readln(a,b,c); 
if a*b<c then b:=b+b*25/100; 
if x:=0 then b:=b*125/100; 
if a*b<c then b:=d; 
if a*b>c then x:=1; 
if a*b=c then x:=1; 
if a*b<c then x:=0; 
writeln(x); 
end.

То что я написал( полный бред)
Что от меня требуется: написать программу, которая проводит расчетЮ может ли чувак успеть вовремя при стратегии : Если он не успевает, то увеличивает скорость на 25%.Затем, после половины пути он снова делает также, если требуется. В входные данные пишется время, скорость и расстояние до шк. В выходных должно быть: 1, если он успевает и 0, если не успевает.
Прошу помочь

[Аватар]

Посчитай время по максимуму скорости
сначала скорость 1.25*b
со второй половины пути 1.25*1.25*b
и если с/2/(1.25*b)+с/2/(1.25*1.25*b) <= a то успеет
формулу элементарно упростить можно, как то так, если не напутал:
1.125*c <= 1.5625*b*a

PS Слабенькая задачка для олимпиады.