Begin (bắt đầu chương trình)
clrscr; (Xóa toàn bộ màn hình)
Write (' nhap so cac ban trong lop, n= '); (Hiện lên màn hình dòng chữ " Nhap so cac ban trong lop, n=)
Readln (n);  (dùng để nhập dữ liệu từ bàn phím vào các biến có kiểu dữ liệu chuẩn trong bài này là số học sinh)

Writeln (' Nhap diem'); ( Hiện lên màn hình dòng chữ " Nhap diem: ")
For i:= 1 to n do (Sử dụng vòng lặp với số lần biết trước, i sẽ đc gán từ 1, 2, 3,... đến n)
Begin (bắt đầu chương trình con) - nếu mk ko nhầm thì là thế
Write (i, '.'); ( Hiện lên màn hình dòng chữ "i.")
Readln (a [i]); (dùng để nhập dữ liệu từ bàn phím vào, cụ thể trong bài này là nhập điểm);
end; ( kết thúc chương trình con);
Gioi:= 0; (Giỏi được gán bằng 0)
Kha :=0; (Khá đc gán = 0)
Trungbinh:=0; (Trungbinh duoc gán = 0)
Kem:=0; ( kem đc gán =0);
For i:=1 to n do ( như trên)
Begin
if a[i] >= 8.0 then Gioi:= Gioi+1; (Nếu điểm a[i] nhập vào từ bàn phím vừa rồi > hoặc = 8.0 thì giỏi đc gán = gioi+1)
If a[i] <5 then kem := kem+1; (Nếu điểm a[i] nhập vào từ bàn phím vừa rồi < 5 thì kem đc gán = kem+1)
If (a[i] < 8.0 ) and (a[i] >= 6.5) then kha:= kha+1; (Nếu điểm a[i] nhập vào từ bàn phím vừa rồi <8.0 và >= 6.5 thì kha đc gán = kha +1)
If (a[i] >=5) and (a[i] <6.5) then trungbinh:=trungbinh +1; (Nếu điểm a[i] nhập vào từ bàn phím vừa rồi > = 5 hoặc < 6.5 thì trungbinh đc gán = trungbinh+1)
end; 
Writeln (' Ket qua hoc tap:'); (Hiện ra màn hình dòng chữ : " ket qua hoc tap")
kiểm tra hộ mk với, có gì sai sót thì chat vs mk~