uses crt;
Var a,b,c,d,dt:real;
begin
clrscr;
write('Diem mon toan cua ban: ');readln(a);
write('Diem mon van cua ban: ');readln(b);
write('Diem mon anh van cua ban: ');readln(c);
write('Diem mon tin hoc cua ban: ');readln(d);
Dt:=(a*2+b*2+c+b)/6;
if(dt>=8)and(a>=6.5)and(b>=6.5)and(c>=6.5)and(d>=6.5)
then writeln('Ban dat loai gioi.') else
if(dt>=6.5)and(dt<8)and(a>=5)and(b>=5)and(c>=5)and(d>=5)
then writeln('Ban dat loai kha.') else
if(dt>=5)and(dt<6.5)and(a>=3.5)and(b>=3.5)and(c>=3.5)and(d>=3.5)
then writeln('Ban dat loai trung binh.') else writeln('Ban dat loai yeu.');
readln
end.