program vlaky;
uses Crt;
var H,M,S,A,B,C,D,C1,D1 : longint;
begin
  clrscr;
  S:=0;
  writeln('Zadaj cas zaciatku v hodinach a minutach:');
  readln(H); readln(M);
  A:=H*3600+60*M+S;
  writeln('Zadaj cas ukoncenia v hodinach a minutach:');
  readln(H); readln(M);
  B:=H*3600+60*M+S;
  writeln('Zadaj periodu 1. vlaku v hodinach a minutach a sekundach:');
  readln(H); readln(M); readln(S);
  C:=H*3600+60*M+S;
  writeln('Zadaj periodu 2. vlaku v hodinach a minutach a sekundach:');
  readln(H); readln(M); readln(S);
  D:=H*3600+60*M+S;
  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 3600);
    M:=((A-H*3600) div 60);
    S:=A-(3600*H)-(M*60);
    writeln(H,' hod ',M,' min ',S,' sek ');
    A:=A+C1;
  end;
  readln;
end.