uses crt;
var i,n,s,max,min: integer;
so_ky_dien: array [1..1000] of integer;
begin
clrscr;
write('nhap so luong ho gia dinh: '); readln(n);
for i:=1 to n do
begin
write('nhap so ky dien cua ho gia dinh thu ',i,': '); readln(so_ky_dien[i]);
s:=s+so_ky_dien[i];
end;
max:=so_ky_dien[1]; min:=so_ky_dien[2];
for i:=2 to n do
begin
if max<so_ky_dien[i] then max:=so_ky_dien[i];
if min>so_ky_dien[i] then min:=so_ky_dien[i];
end;
writeln('so ky dien lon nhat la: ',max);
writeln('so ky dien be nhat la: ',min);
writeln('trung binh so ky dien cua ',n,' ho gia dinh la: ',s/n:3:1);
if s/n>=1000 then write('đe nghi cac gia đinh tiet kiem đien');
if (s/n>=500) and (s/n<1000) then write('xai kha nhieu');
if (s/n>0) and (s/n<500) then write('tot');
readln;
end.