program bt;
uses crt;
var i,n,gioi,yeu: integer;
a:array [1..100] of real;
begin
clrscr;
writeln('Nhap so ban trong lop: '); readln(n);
writeln('Nhap diem: ');
for i:=1 to n do writeln(i,'.'); readln(a[i]);
gioi:=0; yeu:=0;
for i:=1 to n do begin
if a[i] >= 8.0 then gioi:=gioi+1;
if a[i] < 5.0 then yeu:=yeu+1;
end;
writeln('So ban gioi la: ',gioi);
writeln('So ban yeu la: ',yeu);
readln
end.