program ctpt;

uses crt; 

  var t, a, v, tb: real;

        tr, ht, l: string;

begin

           clrscr;

           write('Nhap ten truong: '); readln(tr);

           write('Nhap ten lop: '); readln(l);

           write('Nhap ho ten: '); readln(ht);

           write('Nhap diem trung binh mon toan: '); readln(t);

           write('Nhap diem trung binh mon van: '); readln(v);

           write('Nhap diem trung binh mon anh: '); readln(a);

           tb:=(t+v+a)/3;

           writeln('Diem trung binh 3 mon la: ', tb:4:1);

           if (tb>=8) and (t>=8) and (v>=8) and (a>=8) then write('Gioi') else

             if (tb>=6.5) and (t>=6.5) and (v>=6.5) and (a>=6.5) then write('Kha') else

                if (tb>=5) and (t>=5) and (v>=5) and (a>=5) then write('TB') else

                  if (tb>=3.5) and (t>=3.5) and (v>=3.5) and (a>=3.5) then write('Yeu') else

                             write('Kem');

            readln

end.