đây nha, chúc bạn học tốt!

uses crt;

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

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

begin

clrscr;

write('nhap so ban trong lop: '); readln(n);

writeln('nhap diem: ');

for i:=1 to n do

begin

write(i,'.'); readln(a[i]);

end;

for i:=1 to n do

begin

if a[i]>=8 then gioi:=gioi+1;

if a[i]<5 then kem:=kem+1;

if (a[i]<8) and (a[i]>=6.5) then kha:=kha+1;

if (a[i]<6.5) and (a[i]>=5) then trungbinh:=trungbinh+1;

end;

writeln('ket qua hoc tap:');

writeln(gioi,' ban hoc gioi');

writeln(kha,' ban hoc kha');

writeln(trungbinh,' ban hoc trung binh');

writeln(kem,' ban hoc kem');

readln;

end.