Progran KQ;⇒tên chương trình là KQ.

Var n,i,Dat:integer;⇒Khai báo các biến n,i,Dat có kiểu dữ liệu là integer.

Tile:Real;⇒Khai báo biến Tile có kiểu dữ liệu là Real.

DTB:aray[1..100] of real;⇒Khai báo biến mảng có tên là DTB, có chỉ số đầu là 1, chỉ số cuối là 100, kiểu dữ liệu của mảng này là real.

begin⇒Bắt đầu thân chương trình

write('n= ');⇒In ra màn hình"  n= ".

readln(n);⇒Nhập giá trị của n.

Writeln('Nhap diem trung binh');⇒In ra màn hình " Nhap diem trung binh " và đưa con trỏ chuột xuống dòng.

For i:=1 to n do⇒Chạy biến i từ 1 đến n, lặp n lần câu lệnh tiếp theo

beign⇒Bắt đầu đoạn chương trình

Write('DTB cua hoc sinh thu ',i,' : );⇒In ra màn hình " DTB cua hoc sinh thu ',i,' : ".

Readln(DTB[i])⇒Nhập giá trị của DTB[i].

end;⇒Kết thúc đoạn chương trình.

Dat:=0;→Gán giá trị biến Dat bằng 0.

For i:=1 to n do⇒Chạy biên si từ 1 đến n, lặp n lần câu lệnh tiếp theo.

If DTB[i]>=5 then Dat:=Dat+1;→Nếu biến DTB[i]<=5 thì Dat:=Dat+1;

Tile:=(Dat/n)*100;→Tile được gán giá trị (Dat/n) sau đó nhân 100.

writeln('co ',Dat,' hoc sinh dat diem tb tro len chiem ti le: ',Tile:5:2,'%');⇒In màn hình câu lệnh" 'co ',Dat,' hoc sinh dat diem tb tro len chiem ti le: ',Tile:5:2,'%"

Trong đó: Dat sẽ in tra số hoc sinh đạt điểm tb tro len, Còn tile:5:2 5:2 đưa con trỏ chuột đi cách 10 lần so với lề và làm tròn đến chữ số thập phân thứ 2.