program Hello;
uses crt, math;
var t, ti, v, ta, tb: real;
begin
write('Nhap diem: ');
readln(t, ti, v, ta);
tb:= (t + ti + v + ta) / 4;
if tb >= 8.0 then writeln('Gioi')
else if tb >= 6.5 then writeln('Kha')
else if tb >= 5.0 then writeln('Trung binh')
else writeln('Khong dat');
writeln('Diem cao nhat ', max(max(t, ti), max(v, ta)):2:2);
readln;
end.