với các thông tin nhập từ bàn phím hãy viết chương trình in lên màn hình kết quả thi của 1 học sinh có dạng như sau: họ và tên học sinh lớp điểm văn điểm toán điểm nn tổn điểm kết quả nếu tổng điểm lớn hơn hoặc bằng 15 thì đậu còn lại là rớt trong đó không có môn nào dưới 3 điểm

uses crt;
var t,l: string;
    dt,dv,nn: real;
begin
clrscr;
    write('Nhap ten: '); readln(t);
    write('Nhap ten lop: '); readln(l);
    write('Nhap diem van: '); readln(dv);
    write('Nhap diem toan: '); readln(dt);
    write('Nhap diem ngoai ngu: '); readln(nn);
    if (dv<3) or (dt<3) or (nn<3) then write('ROT')
    else if dv+dt+nn>=15 then write('DAU') else write('ROT');
    readln
end.