program sksk;

uses crt;

var a, b, tb : real;

      c, xl : string;

begin

clrscr;

write('nhap diem ly thuyet :');readln(a);

write('nhap diem thuc hanh :');readln(b);

tb := (a + b) / 2;

if ((tb >= 5) and (a >= 4) and (b >= 4)) then c := 'dau' 

else c := 'rot' ;

if ((tb >= 5 ) and (tb <= 6.9)) then xl := 'Trung binh';

if ((tb >= 7) and (tb <= 8.9)) then xl := 'Kha' ;

if (tb >= 9) then xl := 'Gioi';

writeln('Diem ly thuyet :', a:8:2);

writeln('Diem thuc hanh :', b:8:2);

writeln('Diem chung :', tb:8:2);

writeln('Xep loai :', xl);

readln

end.

import time, os
nghề = int(input("nhập điểm nghề"))
tổng = nghề
đậu = "Chúc mừng bạn đã đậu xét tuyển\n"
rớt = "Chúc mừng bạn đã rớt xét tuyển\n"
if tổng<18:
 print("Điểm tổng ba môn của bạn là:",tổng)
 os.system("cls")
for i in rớt:
 print(i,end="",flush=True)
 time.sleep(0.02)
else:
 print("Điểm tổng ba môn của bạn là:",tổng)
 time.sleep(2)
 os.system("cls")
 for i in đậu:
   print(i,end="",flush=True)
   time.sleep(0.02)