Автомобіль проїхав першу частину шляху за 1,2 год зі швидкістю 74 км/год, а другу частину ─ за 4,8 год. З якою швидкістю автомобіль проїхав другу частину шляху, якщо
середня швидкість протягом усього часу руху становила 72,4 км/год?

Решение:
Скорость сближения велосипедистов равна:
15-10=5 (км/час)
Время сближения:
2 : 5=0,4 (час)
Время движения (t) у обоих велосипедистов одинаковое.
Первый велосипедист проедет расстояние:
S1=15*t
Обозначим количество кругов у первого велосипедиста за (n1)
При количестве кругов n1, расстояние пройденное первым велосипедистом составит:
S1=5*0,4*n1=2n1
Приравняем оба выражения S1
15t=2n1
Второй велосипедист проедет расстояние равное:
S2=10*t
Обозначим количество кругов у второго велосипедиста за (n2)
При количестве кругов n2, расстояние пройденное вторым велосипедистом составит:
S2=5*0,4*n2=2n2
Приравняем оба выражения S2
10t=2n2
Получилось два уравнения:
15t=2n1
10t=2n2
Разделим первое уравнение на второе, получим:
15t/10t=2n1/2n2
15/10=n1/n2
Делаем вывод, что минимальное количество кругов до встречи равно:
n1=15
n2=10
Из первого уравнения 15t=2n1 найдём значение (t)
t=2n1/15  подставим в это выражение n1=15
t=2*15/15=2 (часа)

ответ: Первый велосипедист впервые догонит второго велосипедиста через 2 часа.

var A,B, minA, maxA, minB, maxB, minn, maxx, t, t1, i:longint;

begin  

readln(A); readln(B);

minA:=(A-1)*50+1; maxA:=A*50;

minB:=(B-1)*70+1; maxB:=B*70;

if (minA>maxB) or (minB>maxA) then writeln(-1) else

begin

if minA<minB then minn:=minB else minn:=minA;

if maxA>maxB then maxx:=maxB else maxx:=maxA;

t:=minn div 60;

t1:=maxx div 60;

if (minn mod 60)<>0 then inc(t);

if (maxx mod 60)<>0 then inc(t1);

for i:=t to t1 do  

write(i, ' ');

writeln();

end;

end.

не могу сказать верно или нет, так как не проверял а просто написал в блокнотике