program bai1;
uses crt;
var DTB: reald;
v,t: integer;
begin
clrscr;
repeat
write('nhap diem van =');readln(v);
write('nhap diem doan =');readln(t);
until (v <= 10) and ( v >=0) and (t <= 10) and (t >=0);
DTB:(v+t) / 2;
writeln('diem trung binh hai mon =',DTB:4:2);
it (DTB >=8.0) and (v >=6.5) and (v >=6.5) then
writeln('dat loai gioi');
if (DTB >=6.5) and (v >=5) and (t >=5) then
writeln('dat loai kha') else
writeln('khong dat duoc loai gioi va kha');
readln;
end.
xin ctl hay nhat
chuc bn hoc tot