uses crt;
var sf, st:text; t,s,nimi,punkte:string;
    i,hinne,punktid,viga,count1,count2, count3, count4, count5, count6:integer;

procedure hindamine;
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               HINNE');
 assign(st,'nimed.txt');
 reset(st);
 while not eof(st) do begin
  readln(st,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);
    hindamine;
    writeln(nimi,'     ',hinne);
 readln;

if hinne=5 then count1:=count1+1;
writeln(count1,'  inimesel oli hinne 5');
if hinne=4 then count2:=count2+1;
writeln(count2,'  inimesel oli hinne 4');
if hinne=3 then count3:=count3+1;
writeln(count3,'  inimesel oli hinne 3');
if hinne=2 then count4:=count4+1;
writeln(count4,'  inimesel oli hinne 2');
if hinne=1 then count5:=count5+1;
writeln(count5,'  inimesel oli hinne 1');
if hinne=0 then count6:=count6+1;
writeln(count6,'  inimesel oli hinne 0');
end;
readln;
writeln('Keskmine hinne on',(count1*5+count2*4+count3*3+count4*2+count5)/5:2);
        readln;
 end.