program vlaky1;
uses Crt;
var H,M,A,B,C,D,C1,D1 : integer;
begin
  clrscr;
  writeln('Zadaj cas zaciatku v hodinach a minutach:');
  readln(H); readln(M);
  A:=H*60+M;
  writeln('Zadaj cas ukoncenia v hodinach a minutach:');
  readln(H); readln(M);
  B:=H*60+M;
  writeln('Zadaj periodu 1. vlaku v hodinach a minutach:');
  readln(H); readln(M);
  C:=H*60+M;
  writeln('Zadaj periodu 2. vlaku v hodinach a minutach:');
  readln(H); readln(M);
  D:=H*60+M;
  C1:=C;
  D1:=D;
  while C1<>D1 do begin
    if C1>D1 then D1:=D1+D
    else C1:=C1+C;
  end;
  while A<B do begin
    H:=(A div 60);
    M:=A-60*H;
    writeln(H,' hod ',M,' min ');
    A:=A+C1;
  end;
  readln;
end.