program bai5;
uses crt;
type hocsinh=record
        sbd:integer;
        hoten,lop,ketqua:string;
        van,toan:real;
            end;
var hs:array[1..100] of hocsinh;
    i,n:integer;
begin
    clrscr;
    write('Nhap so hoc sinh: ');
    readln(n);
    for i:=1 to n do
        with hs[i] do
            begin
                write('Nhap ho ten hs[',i,']: '); readln(hoten);
                write('Nhap so bao danh: '); readln(sbd);
                write('Nhap diem van, toan: '); readln(van,toan);
            end;
    for i:=1 to n do
        with hs[i] do
            if (van + toan >= 10) then ketqua:='Dat' else ketqua:='Khong dat';
    for i:=1 to n do
        with hs[i] do
            begin
                writeln('Ho ten hs[',i,']: ',hoten);
                writeln('So bao danh hs[',i,']: ',sbd);
                writeln('Diem van: ',van,' -  Diem toan: ',toan);
                writeln('Ket qua: ',ketqua);
            end;
    readln;
end.