Program baitap;

Uses crt;

Var t,v,a,tb:real;

Begin

Clrscr;

Write('Nhap diem lan luot 3 on toan van anh:');

Readln(t,v,a);

tb:=(t+v+a)/3;

If tb>=8 then writeln('Bạn la hoc sinh gioi');

If (tb<8) and (tb>=6.5) then writeln('Bạn la hoc sinh kha');

If (tb<6.5) and (tb>=5) then writeln('Bạn la hoc sinh trung binh');

If (tb<5) and (tb>=3.5) then writeln('Bạn la hoc sinh yeu');

If tb<3.5 then writeln('Bạn la hoc sinh kem');

Readln

End.

uses crt;
var v,t,a,tb:real;
hx:string;
begin
clrscr;
write('nhap diem van, toan, anh: ');
readln(v,t,a);
tb:=(v+t+a)/3;
if tb>=8 then hx:='GIOI';
if (tb>=6.5) and (tb<8) then hx:='KHA';
if (tb>=5) and (tb<6.5) then hx:='TB' ;
if (tb>=3.5) and (tb<5) then hx:='YEU';
if (tb<3.5) then hx:='KEM';
writeln(hx);
readln
end.