program Oken;
uses crt;
var dtb,toan,ly,hoa,min: real;
begin
clrscr;
write('Nhap mon Toan: '); readln(toan);
write('Nhap mon Ly: '); readln(ly);
write('Nhap mon Hoa: '); readln(hoa);
dtb:= (toan*2+ly+hoa)/4;
writeln('Diem trung binh: ',dtb:0:1);
min:= toan;
if min>ly then
min:=ly;
if min>hoa then
min:=hoa;
if (dtb>=8) and (min>=6.5) then
writeln('Gioi')
else if (dtb>=6.5) and (min>=5) then
writeln('Kha')
else if (dtb>=5) and (min>=3.5) then
writeln('Trung binh')
else
writeln('Yeu');
readln;
end.