program Trung_Binh_Tien_Thue_Dat_Nha;
    uses crt;
    type 
        ttch = record 
        namech:string[100];    //Ten chu ho
        nam: array[1..3] of real;
        tb: real;
    end;
var tongch,i,j:integer;
    ch:array[1..100] of ttch;  // Chu ho
    tong:real;
    tam:ttch;
begin
    write('Tong chu ho la : '); readln(tongch);
    {1. Nhap thong tin}
    for i:=1 to tongch do
    begin
        write('Nhap ho va ten chu ho [',i,']: '); 
        readln(ch[i].namech); 
    end;
    writeln('---------');
    for i:=1 to tongch do
    begin    
        for j:=1 to 3 do 
        begin 
            write('Tien thue nam ',j,' cua ho ',ch[i].namech,' ' ); 
            readln(ch[i].nam[j]);
        end;
        writeln('---------');
    end;
    clrscr;
    {2.In thong tin}
    for i:=1 to tongch do 
    begin
        write(i,' ',ch[i].namech:10,' | ');
        for j := 1 to 3 do write(ch[i].nam[j]:6:2,' | ');
            writeln;       
    end;
    writeln('---------');
    {Tinh trung binh 3 nam}
    for i:=1 to tongch do 
    begin
        tong := 0;
        for j:=1 to 3 do
            tong := tong+ch[i].nam[j];
        ch[i].tb:=tong/3;
        writeln('Trung binh cua ho [',i,']: ', ch[i].tb:6:2);
    end; 
    writeln('---------');
    {Sap xep tang dan}
    for i:=1 to tongch-1 do
        for j:=i+1 to tongch do
        if ch[i].tb>ch[j].tb then
    begin
        tam := ch[i]; 
        ch[i]:=ch[j]; 
        ch[j]:=tam;
    end;
    writeln('DANH SACH CAC HO TRONG PHUONG THEO MUC THUE DAT NHA O TANG DAN');
    writeln;
    writeln('STT | Ten chu ho |   Tien tb');
    for i:=1 to tongch do
        writeln(i:3,' |',ch[i].namech:10,'  |',ch[i].tb:10:2);
    readln;
end.