cho chương trình trong sách tin học trang 71 hãy giải thích ý nghĩa của các câu lệnh

var a, thunhap_tb:real; i:integer; (KHAI BÁO BIẾN).

begin

thunhap_tb=0;

for i:=1 to 50 do (CHO BIẾN I CHẠY TỪ 1 ĐẾN 50)

begin

write('thu nhap cua gia dinh thu: ',i); (IN RA DÒNG  thu nhap cua gia dinh thu TỪ 1 ĐẾN 50 )

readln(a); (NHẬP THU NHÂP CỦA TỪNG HỘ GIA ĐINH)

thunhap_tb:=thunhap_tb+a;(TÍNH TỔNG THU NHÂP CỦA 50 HỘ GIA ĐÌNH)

end;

thunhap_tb:=thunhaptb/50;(LẤY TỔNG THU NHẬP CỦA 50 HỘ GIA ĐÌNH CHIA CHO TỔNG SỐ HỘ)

for i:=1 to 50 do(TIẾP TỤC CHO I CHẠY TỪ 1 ĐẾN 50)

begin

write('thu nhap của gia đinh thu ',i); readln(a);(IN RA DONG thu nhap cua gia dinh TỪ 1 ĐẾN 50 VÀ THU NHAP CỦA TỪNG HỘ)

writeln('do lech so voi thu nhap tb la: ',a-thunhap_tb);(IN RA DÒNG CHỮ do lech so voi thu nhap tn la  VÀ TÍNH ĐỘ LỆCH GIỮA MỨC THU NHAP CỦA HỘ ĐÓ SO VỚI MỨC THU NHAP TRUNG BINH)

end;

end.