hovaten = str(input())

print("Họ Và Tên :",hovaten);

tx1 = float(input())

tx2 = float(input())

tx3 = float(input())

dgk = float(input())

dck = float(input())

tbhk = ((tx1 + tx2 + tx3)+2*dgk + 3*dck)/8;

print("Điểm trung bình học kì là :", tbhk);

if tbhk>=9 :

    print("xếp loại học lực xuất sắc");

if (tbhk<9) and (tbhk>8):

    print(" xếp loại học inh giỏi");

if (tbhk<8) and (tbhk >= 6.5):

     print("xếp loại học sinh khá");

if (tbhk< 5) and (tbhk>= 3.5):

      print("xếp loại học sinh trung bình");

if (tbhk< 6.5) and (tbhk>= 5):

      print("xếp loại học sinh yếu");

if tbhk < 3.5:

    print("xếp loại học sinh kém") ;

Program baitap;

Uses crt;

Var ht:string;

       tx1,tx2,tx3,dgk,dck,tbhk:real;

Begin

Clrscr;

Write('Ho ten:'); Readln(ht);

Write('tx1:'); Readln(tx1);

Write('tx2:'); Readln(tx2);

Write('tx3:'); Readln(tx3);

Write('dgk:'); Readln(dgk);

Write('dck:'); Readln(dck);

tbhk:=((tx1+tx2+tx3)+2*dgk+3*dck)/8;

Writeln('Ho ten:',ht);

Writeln('Diem tbhk:',tbhk:2:1);

Write('Xep loai hoc luc:');

If tbhk>=9 then writeln('Xuat sac');

If (tbhk<9) and (tbhk>=8) then writeln('Gioi');

If (tbhk<8) and (tbhk>=6.5) then writeln('Kha');

If (tbhk<6.5) and (tbhk>=5) then writeln('Trung binh');

If (tbhk<5) and (tbhk>=3.5) then writeln('Yeu');

If tbhk<3.5 then writeln('Kem');

Readln

End.