Задача.Быстрый Фил, Нужен второй алгоритм Опции

[Guilty]

Прошу помоч решить задачу :
Быстрый Фил. Фил работает работает в последнюю смену.После работы ровно в 2-00 утра Фил уезжает домой с автомобильной
стоянки.Его маршрут пролегает по дороге,на которой установлены один или несколько светофоров.Фил всегда удивлялся,что,выбирая определенную
скорость движения по маршруту и не изменяя ее ,он мог иногда доехать к дому без задержки на светофорах,т.е. все светафоры он проезжает
на зеленый свет.Скорость движения в городской черте не должна превосходить 60 миль/час.Однако Фил не любил и тихо ездить.
Минимальная скорость его движения 30 миль/час.Составьте алгоритм-программу,которая находит все целочимленные скорости(в милях/час),с которыми
Фил может двигаться домой без остановки на светофорах,начало движения с автомобильной стоянки ровно в 2-00 утра.В этот момент времени все светофоры сбрасываются в
зеленый свет.
Исходные данные задаются в текст. файле,в котором приводится набор данных для описания режимов работы светофоров.Последнее
число в файле(-1),является признаком конца данных в файле.Первое число n каждого набора чисел : Length-GreenYellowRed (LGYR)
для каждого светофора, где L-положительное действительное число,указывающее место расположения светофора от начала маршрута Фила;
G,Y,R - интервал продолжительности времени в секундах непрерывного цвета светофора зеленого,желтого,красного.Результаты
расчетов допустимых целочисленных скоростей движения Фила сохранить в выходном файле:


Файл исходных данных:
1
5.5 40 8 25

Файл выходных данных : 30,32,33,36,37,38,41,42,43,44,45,48,49,5051,52,53,54,59,60


Файл исходных данных:
3
10.7 10 2 75
12.5 12 5 57
17.93 15 4 67
-1

Файл выходных данных : Должно получится 0 - признак отсутствия такой скорости


Дело в том что мне нужно два алгоритма на эту задачу , один я сделал , а вот до другого не могу додуматься , вот вас решил спросить . Задача в принципе легкая , но загвозка в том что мне нужен еще один алгоритм на эту задачу.
:low:

[novaa]

А что это значит? Как тебе надо?

Вот мой вариант. Его результат на приведенном примере такой же, как у кода выше (то есть не такой, как в ответе примера).

const
  m=100;

var
  f: text;
  i,n,v: integer;
  y,r,t: double;
  l,g,c: array [1..m] of double;
  Yes: boolean;
  Comma: string[1];

begin
  Assign(f,'in.txt');
  ReSet(f);
  ReadLn(f,n);
  for i:=1 to n do begin
    ReadLn(f,l[i],g[i],y,r);
    c[i]:=g[i]+y+r
  end;
  Close(f);
  Comma:='';
  Assign(f,'out.txt');
  ReWrite(f);
  for v:=30 to 60 do begin
    Yes:=true;
    i:=0;
    while Yes and (i<n) do begin
      Inc(i);
      t:=l[i]/v*3600;
      Yes:=Yes and (t-Trunc(t/c[i])*c[i]<=g[i])
    end;
    if Yes then begin
      Write(f,Comma,v);
      Comma:=','
    end
  end;
  if Length(Comma)=0 then Write(f,0);
  Close(f)
end.

Там он не выводил те значения которые должны выводится. в обоих случаях он выводил значения от 30 до 60.

АААааааа большое спасибо , работает как надо очень благодарен!