Viết phương trình nhập danh sách của học sinh như một lớp với số lượng học sinh n lớn hơn hoặc bằng 50 các thông tin gồm mã học sinh họ tên lớp ngày sinh điểm Toán điểm Văn điểm anh được nhập từ bàn phím

program Hello;
uses crt;
var mhs,ten,lop,ns:array[1..10000] of string;
    t,v,a:array[1..10000] of real;
    n,i:integer;
begin
    write('So hoc sinh: '); readln(n);
    for i:= 1 to n do
        begin
            writeln('=== ', i, ' ===');
            write('Ma hoc sinh: '); readln(mhs[i]);
            write('Ten: '); readln(ten[i]);
            while length(ten[i]) < 20 do
                ten[i]:= ten[i] + ' ';
            write('Lop: '); readln(lop[i]);
            write('Ngay sinh: '); readln(ns[i]);
            write('Diem toan: '); readln(t[i]);
            write('Diem van: '); readln(v[i]);
            write('Diem Anh: '); readln(a[i]);
        end;
    clrscr;
    writeln('=== DANH SACH HOC SINH ===');
    for i:= 1 to n do
        writeln(i, ' | ', mhs[i], ' | ', ten[i], ' | ', lop[i], ' | ', ns[i], ' | ', t[i]:2:2, ' | ', v[i]:2:2, ' | ', a[i]:2:2, ' | ' );
end.