Viết chương trình tính mức thu nhập trung bình của các hộ gia đình trong địa phương

uses crt;

var a: integer;

i,n: integer;

tb: real;

begin

clrscr;

write (‘nhap so ho dan: ‘);  readln (n);

for i:=1 to n do

begin

write (‘nhap thu nhap cua ho dan thu ‘,i,’: ‘);  readln (a);

tb:=tb+a;

end;

tb:=tb/n;

writeln (‘thu nhap trung binh la: ‘,tb:1:3);

readln;

end.