1)      program trung_binh;
2)      uses crt;
3)      var a, b, c, d, tb : real;
4)      begin
5)      clrscr;
6)      write('nhap so nguyen a :');readln(a);
7)      write('nhap so nguyen b :');readln(b);
8)      write('nhap so nguyen c :');readln(c);
9)      write('nhap so nguyen d :');readln(d);
10)    tb := (a + b + c + d)/4;
11)    writeln('trung binh cong 4 so la :', tb :8:2);
12)    readln
13)    end.

Dòng 1 : khai báo tên chương trình

Dòng 2 : khai báo thư viện crt;

Dòng 3 : khai báo biến chứa 4 số a, b, c, d, tb giá trị trung bình 4 số

Dòng 4 : bắt đầu chương trình

Dòng 5 : lệnh xóa màn hình khi khai báo thư viện crt

Dòng 6, 7, 8, 9 : nhập a, b, c, d từ bàn phím

Dòng 10 : gán giá trị trung bình 4 số cho tb

Dòng 11 : xuất giá trị ra màn hình

Dòng 12 : đọc kết quả trên màn hình

Dòng 13 : kết thúc chương trình