program phuongt;

uses crt;

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

       i, n: integer;

         tb: real;

begin

           clrscr;

           write('Nhap so hoc sinh trong lop: '); readln(n);

           for i:=1 to n do

           begin

                      write('Nhap diem cua ban thu ', i, ': '); readln(A[i]);

           end;

           for i:=1 to n do

           begin

                     if (A[i]>=0) and (A[i]<=10) then

                     begin

                                write('Ket qua hoc tap cua ban thu ', i, ': ');

                                if A[i]>=8 then write('Gioi') else

                                       if (A[i]<8) and (A[i]>=6.5) then write('Kha') else

                                                if (A[i]<6.5) and (A[i]>=5) then write('Trung binh') else

                                                         write('Kem');

                     end

                     else write('Nhap diem sai');

           end;

           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.