Найти самый быстрый поезд

program problem1505;
 
{$mode objfpc}{$H+}
 
uses {$IFDEF UNIX} {$IFDEF UseCThreads}
  cthreads, {$ENDIF} {$ENDIF}
  SysUtils { you can add units after this };
 
var
  n, i: integer;
  curName, newName, data: String;
  curTime, newTime: integer; //время в минутах
  procedure processInfo(const aData: string; out aName: string; out atime: integer);
  function processTwoDigits(aStr: string): integer;
  begin
    if aStr[1] = '0' then
       Result:= StrToInt(aStr[2])
    else
       Result:= StrToInt(aStr);
  end;
 
  var
    p: integer;
    t1, t2, hh, mm: integer;
 
  begin
    if Length(aData)<(2+10) then halt;  //never be happened
    p:=pos('"', aData);
    if p = 0 then halt;
 
    aName:=Copy(aData,p, succ(pos('"',aData, p +1) - p));
 
    p:=  Length(aName) +2;
    hh:= processTwoDigits(copy(aData,p,2));
    p:=  p+3;
    mm:= processTwoDigits(copy(aData,p,2));
    t1:= hh*60 + mm;
    p:=  p +2;
    hh:= processTwoDigits(copy(aData,p,2));
    p:=  p+3;
    mm:= processTwoDigits(copy(aData,p,2));
    t2:= hh*60 + mm;
 
    if t2 < t1 then
       atime:= 24*60 - t1 + t2
    else
       atime:= t2 - t1;
  end;
 
begin
 
  readln(n);
  if n < 1 then exit; //never be happened
  readln(data);
  processInfo(data, curName, curTime);
  for i:=1 to pred(n) do begin
    readln(data);
    processInfo(data, newName, newTime);
    if newTime < curTime then begin
      curName:= newName;
      curTime:= newTime;
    end;
  end;
 
  writeln(curName, ' ',round(650/curTime*60), ' km/h');
 
end.