Helppppppppppppppppppppppp

$#QLinkVN$

Kết quả code ở hình 1, code cần làm là hình 2.

Code Pascal:

program QLV;
uses crt;
type A = array[1..50] of real; {chung kieu du lieu cho de}
var toan,van,anh,dtb: A;
    HS: array[1..50] of string;
    i,n: integer;
begin clrscr;
    n:=0;
    write('Nhap so luong hoc sinh: '); readln(n); 
    for i:=1 to n do                {#QlinkVN}
    begin
        write('Nhap ten hoc sinh thu ',i,': '); readln(HS[i]);
        write('Nhap diem Toan: '); readln(toan[i]);
        write('Nhap diem Anh: '); readln(anh[i]);
        write('Nhap diem Van: '); readln(van[i]);
        dtb[i]:=(toan[i]+anh[i]+van[i])/3
    end;
    for i:=1 to n do
    begin
        writeln('Hoc sinh thu ',i,' ten la ',HS[i],', dat DTB la: ',dtb[i]:0:2);
    end;
    readln
end.