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

      dg, dkh, dtb, dk, i, n: byte;

Begin

    Write('co bao nhieu hoc sinh: ');

    readln(n); dg:=0; dkh:=0;

    dtb:=0; dk:=0;

    For i:=1 to n do

     Begin

         Write('nhap diem cua hs thu ',i, ': ');

        Readln(a[i]); 

        If a[i]>8 then inc(dg)

        else if a[i]>6.5 Then inc(dkh)

        Else if a[i]>5 then inc(dtb)

        Else inc(dk);

     End;

   Writeln('gioi: ', dg); writeln('kha: ', dkh);

   Writeln('trung binh: ', dtb);

   Writeln('yeu: ', dk);

   Readln

End.

Program Phanloai;

Uses crt;

Var i, n, gioi, kha, trungbinh, kem: integer;

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

Begin 

clrscr;

writeln ('Nhap so cac ban trong lop,n=');

readln (n);

writeln ('Nhap diem');

For i:=1 to n do begin write (i,'.');

readln (a[i]);end;

gioi:=0; kha:=0; trungbinh:=0; Kem:=0;

For i:=1 to n do

begin

If a[i]>=8.0 then gioi:=gioi+1;

If a[i]<5.0 then kem:=kem+1;

If (a[i]<8.0) and (a[i]>=6.5) then trungbinnh:=trungbinh+1

end;

Writeln ('ket qu hoc tap:');

Writeln (gioi,'ban hoc gioi');

Writeln (kha,'ban hoc kha');

Writeln (trungbinh,ban hoc trungbinh');

Writeln (kem, ban hoc kem);

Readln;

End.