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.
