var
f1,f2:text;
s:string;
f,im,b:array[1..100] of string;
i,st,x,code:integer;
begin
  assign(f1,'input.txt');
  assign(f2,'output.txt');
   reset(f1);
    st:=0;
  while not eof(f1) do begin
   readln(f1,s);
    inc(st);
  f[st]:=copy(s,1,pos(' ',s));
   delete(s,1,pos(' ',s));
  im[st]:=copy(s,1,pos(' ',s));
   delete(s,1,pos(' ',s));
  b[st]:=copy(s,1,3);
 end;
   close(f1);
    for i:=1 to st do begin 
     val(b[i],x,code);
      if x>=80 then begin
    rewrite(f2); 
     writeln(f2,f[i],im[i],b[i]);
    end;
     end;
    close(f2);
 end.