var
 myfile: text;
 S,zvidku,kyda,time: string;
 chas: real;
 i,Code:Integer;

begin
 assign(myfile ,'D:\poizd.txt');
 reset(myfile);
 while not eof (myfile) do
  begin
   readln(myfile,S);
   i:=1;
   zvidku:='';
   while S[i]<>' ' do
    begin
     zvidku:=zvidku+S[i];
     Inc(i);
    end;
   while S[i]=' ' do Inc(i);
   kyda:='';
   while S[i]<>' ' do
    begin
     kyda:=kyda+S[i];
     Inc(i);
    end;
   while S[i]=' ' do Inc(i);
   time:='';
   while i<=length(S) do
    begin
     time:=time+S[i];
     Inc(i);
    end;
   VAL(time,chas,Code);
   if (kyda='Kiev') and (chas>=19.0) then
    begin
     write(zvidku);
     for i:=length(zvidku)+1 to 10 do write(' ');
     writeln(kyda+'   '+time);
    end;
  end;
 close (myfile);
 readln
end.