program mang;
uses crt;
var A:array [1..500] of integer;
n,i,TB,thunhapTB: integer;
Begin
clrscr;
write('Nhap so ho gia dinh: '); readln(n);
for i:=1 to n do
begin
write('Ho ',i,' (d): '); readln(A[i]);
thunhapTB:=thunhapTB+A[i];
end;
writeln('Thu nhap trung binh cua cac ho: ',thunhapTB/n:2:0,'d');
writeln('Nhap muc thu nhap trung binh: '); readln(TB);
for i:=1 to n do writeln('Ho ',i,' lech voi muc TB: ',A[i]-TB,'d');
readln
End.