program diem;
uses crt;
var ten:string;
dv,dt,da,tb:real;
begin
clrscr;
write('Nhap ten: '); readln(ten);
write('Nhap diem van: '); readln(dv);
write('Nhap diem toan: '); readln(dt);
write('Nhap diem anh: '); readln(da);
tb:=(dv+dt+da)/3;
write(ten,' ',dtb:2:2);
if tb>=9 then write('Xep loai gioi');
if (tb>=7) and (tb<9) then write('Xep loai kha');
if (tb>=5) and (tb<7) then write('Xep loai trung binh');
if tb<5 then write('Xep loai yeu');
readln
end.