program ct;
uses crt;
var n,i,gioi,kha,trungbinh,yeu:integer;
A:array[1..100] of real;
begin
clrscr;
write('nhap so hoc sinh:=');readln(n);
for i:=1 to n do
begin
write('nhap diem A[',i,']:=');readln(A[i]);
end;
gioi:=0; kha:=0; trungbinh:=0; yeu:=0;
for i:=1 to n do
begin
if A[i]>=8.0 then gioi:=gioi+1;
if A[i]<5 then yeu:=yeu+1;
if (A[i]<8.0) and (A[i]>=6.5) then kha:=kha+1;
if (A[i]>=5) and (A[i]<6.5) then trungbinh:=trungbinh+1;
end;
writeln(gioi,' ban hoc gioi');
writeln(kha,' ban hoc kha');
writeln(trungbinh,' ban hoc trung binh');
writeln(yeu,' ban hoc yeu');
readln
end.