program az;
uses Crt;
var a,b,c,T : real;
begin
clrscr;
Write('Nhap diem mon Toan : '); readln(a);
Write('Nhap diem mon Van : '); readln(b);
Write('Nhap diem mon Anh : '); readln(c);
T := a + b + c;
If (T >= 24) then Write('Da trung tuyen ') else Write('Khong trung tuyen');
readln
end.