Program Tinh_Trung_Binh; →Khai báo tên chương trình là Tinh_Trung_Binh,

Uses crt;→Khai báo thư viện.

Var n,dem:Integer;→Khai báo biến n,dem có kiểu dữ liệu là Integer.

x,tong,tb:real;→Khai báo biến x,tong, tb có kiểu dữ liệu là real.

Begin→Bắt đầu phần thân chương trình.

Clrscr;→Câu lệnh để xóa toàn bộ màn hình máy tính.

dem:=0;→Biến dem được gán giá trị bằng 0.

tong:=0;→Biến tong được gán giá trị bằng 0.

Write('Nhap so cac so can tinh n = '); Readln(n);→In ra màn hình " Nhap so cac so can tinh n = " và sau đó nhập giá trị của n.

While dem<n do→Điều kiện để lặp là dem<n.

Begin→Bắt đầu đoạn chương trình.

dem:=dem+1;→Biến dem tăng 1 giá trị.

Write('Nhap so thu ',dem,' = ');→In ra màn hình " Nhap so thu dem = ".

Readln(x); →Nhập giá trị của x và đưa con trỏ xuống dòng.

tong:=tong+x; →Biến tong được gán giá trị bằng tong cộng với x.

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

tb:=tong/n;→Biến tb được gán giá trị bằng tong chia cho n.

Writeln('Trung binh cua ',n,' so vua nhap la; ',tb:10:3);→In ra màn hình câu lệnh Trung  binh cua n so vua nhap la, tb cách vào 10 khoảng cách và làm tròn đến chữ số thập phân thứ 3. Đưa con trỏ xuống dòng.

Writeln('Nhan Enter de thoat!'); →In ra màn hình Nhan Enter de thoat! và đưa con trỏ xuống dòng.

Readln;→Dừng lại cho đến khi bấm phím Enter;

End. →Kết thúc chương trình.