program bai1;

uses crt;

var T,V,A,Tb:real; 

begin clrscr;

   write('Nhap diem ba mon Toan, Van, Anh '); readln(T,V,A);

     Tb:=(T+V+A)/3;

   if 9<=Tb and Tb<=10 then writeln('Gioi');

   if 7<=Tb and Tb<=8 then writeln('Kha');

   if 5<=Tb and Tb<7 then writeln('Trung binh');

   if Tb<5 then writeln('Khong dat');

readln;

end.

Học tốt!

Program Hotboy;

Uses crt;

Var Toan,van,anh,tb : real;

Begin

Clrscr;

Tb:=0;

Write('nhao dien toan'); Readln(toan);

Write('nhap diem van'); Readln(van);

Write(''nhap diem anh'); Readln(anh);

Tb:=(Toan+anh+van)/3;

If (Tb >=9 ) and (Tb<10) then write('gioi');

If (7<=TTb and (Tb <=8) then write('kha');

If 5<=Tb and Tb <7 then Write('Tb');

If Tb<5 then write('ko đat');

Readln

End.