var a,thunhap_tb: real;
i, n: integer;
begin
write('So ho dan la: '); readln(n);
thunhap_tb:=0;
for i:=1 to n do
begin
write('Thu nhap cua gia dinh thu ',i);
readln(a);
thunhap_tb:=thunhap_tb+a;
end;
thunhap_tb:=thunhap_tb/n;
for i:=1 to n do begin
write('Thu nhap cua gia dinh thu ',i); readln(a);
writeln('Do lech la: ',a-thunhap_tb);
end;
end.