Program baitap;

Uses crt;

Var t,l,h,x,DTB:real;

Begin

Clrscr;

Write('Nhap diem Toan:'); Readln(t);

Write('Nhap diem Ly:'); Readln(l);

Write('Nhap diem Hoa:'); Readln(h);

DTB:=(t*2+l+h)/4;

If DTB<5 then writeln('Hoc luc: Yeu');

If (5<=DTB) and (DTB<8) then writeln('Hoc luc: Kha');

If (DTB>8) and (t=10) and (l>7) and (h>7) then writeln('Hoc luc:Gioi; Ban duoc nhan hoc bong!');

If (DTB>8) and ((t<>10) or (l<=7) or (h<=7)) then writeln('Hoc luc:Gioi; Ban khong duoc nhan hoc bong!');

Readln

End.

uses crt;

var a, b, c, dtb : real;

begin

clrscr;

write('nhap lan luot diem Toan, Ly, Hoa : ');

readln(a, b, c);

dtb := (a * 2 + b + c) / 4;

if dtb < 5 then writeln('hoc luc yeu');

if (dtb >= 5) and (dtb < 8) then writeln('hoc luc kha');

if (a = 10) and (b > 7) and (c > 7) then

writeln('Hoc luc gioi. Nhan hoc bong')

else if dtb >= 8 then writeln('Hoc luc gioi. Khong duoc nhan hoc bong');

readln

end.