Program KQ;

- Khai báo tên chương trình là KQ

Var n, i, Dat : integer; Tile : real;

- Khai báo biến : n, i, Dat thuộc kiểu số nguyên và Tile kiểu số thực

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

- Khai báo biến mảng DTB chứa 100 phần tử kiểu thực

Begin

- Bắt đầu chương trình

Write('n = ');

- In ra màn hình : n =

Readln(n);

- Nhập từ bàn phím 1 gía trị cho biến n

Write('Nhap diem trung binh');

- In ra màn hình : Nhap diem trung binh

For i := 1 to n do 

- Thực hiện lặp câu lệnh n lần, với giá trị i chạy từ 1 đến n

Begin

- Bắt đầu câu lệnh ghép

Write('DTB cua hoc sinh thu ', i ,' : ']');

- In ra màn hình : DTB cua hoc sinh thu i : ], với i là gía trị hiện tại của biến đếm i

Realn(DTB[i]);

- Nhập từ bàn phím giá trị cho phần tử DTB[i], với i là gía trị hiện tại của biến đếm i

End;

- Kết thúc câu lệnh ghép

Dat := 0

- Giá trị biến Dat = 0

For i := 1 to n do

- Thực hiện lặp câu lệnh n lần, với giá trị i chạy từ 1 đến n

If DTB[i] >= 5 then Dat := Dat + 1;

- Nếu giá trị phần tử DTB[i] lớn hơn hoặc bằng 5 thì tăng giá trị biến Dat lên 1 đơn vị

Tile := (Dat / n) * 100;

- Giá trị Tile bằng Dat chia n nhân 100

Writeln('Co ', Dat ,' hoc sinh dat diem TB tro len chiem ti le : ', tile : 5 : 2 ', % ');

- In ra màn hình : Co <giá trị biến Dat> hoc sinh dat diem TB tro len chiem ti le : <giá trị biến đạt lấy 2 chữ số sau thập phân> %

Readln

- Dừng màn hình cho tới khi nhấn Enter

End.

- Kết thúc chương trình