program nimefail;
uses crt;
var  t:text; s,nimi, punkte:string;
    i,punktid,hinne, viga:integer;

procedure hinded;
begin
 case punktid of
  0..49 :hinne:=0;
  50..59 :hinne:=1;
  60..69 :hinne:=2;
  70..79 :hinne:=3;
  80..89 :hinne:=4;
  90..100 :hinne:=5;
 end;
end;

begin clrscr;
      writeln('NIMI                        PUNKTE  HINNE');
 assign(t,'nimed.txt');
 reset(t);
 while not eof(t) do begin
  readln(t,s);
  for i:=1 to length(s) do
   if s[i]=chr(32) then begin
    nimi:=copy(s,1,i);
    punkte:=copy(s,i,3);
   end;
   val(punkte, punktid, viga);
   hinded;
   writeln(nimi,'       ',punkte,'      ',hinne);
  end;
 readln;
 end.