Program Hotboy;
Uses crt;
Var Toan,van,anh,tb : real;
Begin
Clrscr;
Tb:=0;
Write('nhao dien toan'); Readln(toan);
Write('nhap diem van'); Readln(van);
Write(''nhap diem anh'); Readln(anh);
Tb:=(Toan+anh+van)/3;
If (Tb >=9 ) and (Tb<10) then write('gioi');
If (7<=TTb and (Tb <=8) then write('kha');
If 5<=Tb and Tb <7 then Write('Tb');
If Tb<5 then write('ko đat');
Readln
End.