var a, Thunhap_TB: real; {khai báo 2 biến a và Thunhap_TB thuộc kiểu số thực}

      i: Integer; {khai báo biến i thuộc kiểu số nguyên}

begin {bắt đầu chương trình}

 Thunhap_TB:= 0; {gán giá trị 0 cho biến Thunhap_TB}

 for i:=1 to 50 do {lệnh lặp với giá trị của biến i tăng dần từ 1 tới 50}

  begin {bắt đầu lệnh lặp}

   write('Thu nhap cua gia dinh thu' , i); readln (a); {nhập giá trị cho biến a}

   Thunhap_TB := ThunhapTB + a; {gán giá trị ThunhapTB + a cho biến Thunhap_T}

  end; {kết thúc lệnh lặp}

 Thunhap_TB:= Thunhap_TB/50; {gán giá trị Thunhap_TB/50 cho biến Thunhap_TB}

 for i :=1 to 50 do {lệnh lặp với giá trị của biến i tăng dần từ 1 tới 50}

  begin {bắt đầu lệnh lặp}

   write (' Thu nhap cua gia dinh thu', i); readln(a); {nhap gia trị cho biến a}

   writeln ('Do lech so voi thu nhap TB la:' , a- Thunhap_TB); {thông báo a- Thunhap_TB ra màn hình}

  end; {kết thúc lệnh lặp}

end. {kết thúc chương trình}

* nhận xét: theo em, chương trình trên bị lỗi thuật toán, a phải là biến mảng thì chương trình mới thực hiện theo ý muốn được.

var a, Thunhap_TB : real ; i : Integer;

// Khai báo biến a, Thunhap_TB kiểu thực, i kiểu nguyên

begin

// Từ khoá bắt đầu thân chương trình

Thunhap_TB := 0;

// Gán giá trị 0 cho biến Thunhap_TB

for i :=1 to 50 do

// Câu lệnh lặp với số lần biết trước, i chạy từ 1 đến 50

begin

// Từ khoá bắt đầu câu lệnh ghép

write('Thu nhap cua gia dinh thu' , i);

// In 'Thu nhap cua gia dinh thu' và giá trị i

readln (a);

// Nhập a từ bàn phím

Thunhap_TB := Thunhap_TB + a

// Cộng thêm a vào biến Thunhap_TB và gán lại cho biến Thunhap_TB

end;

// Từ khoá kết thúc câu lệnh ghép

Thunhap_TB := Thunhap_TB / 50;

// Chia giá trị Thunhap_TB cho 50, gán lại cho Thunhap_TB

for i :=1 to 50 do begin

// Câu lệnh lặp với số lần biết trước, i chạy từ 1 đến 50

write (' Thu nhap cua gia dinh thu', i); readln(a);

// In 'Thu nhap cua gia dinh thu' và giá trị i, nhập a từ bàn phím

writeln ('Do lech so voi thu nhap TB la:' , a - Thunhap_TB)

// In xâu 'Do lech so voi thu nhap TB la:' và giá trị a - Thunhap_TB

end;

// Từ khoá kết thúc câu lệnh ghép

end.

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