uses crt;

var A : array [1 .. 100] of real;

i, n, d1, d2, d3, d4 : integer;

begin

clrscr;

write('Nhap so hoc sinh n = '); readln(n);

d1 := 0; d2 := 0; d3 := 0; d4 := 0;

for i := 1 to n do

    begin

        write('Diem trung binh HS ', i ,' : ');

        readln(A[i]);

        if A[i] >= 8 then d1 := d1 + 1;

        if (A[i] <= 7.9) and (A[i] >= 6.5) then d2 := d2 + 1;

        if (A[i] <= 6.4) and (A[i] >= 5.0) then d3 := d3 + 1;

        if A[i] < 5 then d4 := d4 + 1;

    end;

writeln('So hoc sinh gioi : ', d1);

writeln('So hoc sinh kha : ', d2);

writeln('So hoc sinh trung binh : ', d3);

writeln('So hoc sinh yeu : ', d4);

readln

end.

program oken;
uses crt;
var a: array [1..100] of real;
    i,n,dy,dtb,dk,dg:integer;
begin
        clrscr;
        write('Co bao nhieu ban can nhap diem: '); readln(N);
        for i:=1 to n do
                begin
                        write('nhap diem ban thu ',i,': ');
                        readln(a[i]);
                        if a[i]<5 then
                                dy:=dy+1
                        else if a[i]<6.4 then
                                dtb:=dtb+1
                        else if a[i]<7.9 then
                                dk:=dk+1
                        else
                                dg:=dg+1;
                end;
        writeln('So ban hoc yeu: ',dy);
        writeln('So ban hoc trung binh: ',dtb);
        writeln('So ban hoc kha: ',dk);
        writeln('so ban hoc gioi: ',dg);
        readln;
end.