Nếu có sai thì bạn nói mình nhé.
==========================
program Hello;
uses crt;
var a1,a2,a3,a4,a5:real;
begin
clrscr;
read(a1, a2, a3, a4);
a5:= (a1+a2+a3*2+a4*3)/7;
if a5 >= 8 then
Write('Gioi')
else if (a5>=6.5) and (a5<8) then
Write('Kha')
else if (a5>=5) and (a5<6.5) then
Write('TB')
else
Write('Yeu');
readln;
end.