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

uses crt;
var t,l,h:longint;
begin
clrscr;
   write('Diem toan, ly, hoa: ');readln(t,l,h);
   if ((t+l+h)/3>=8)then writeln('Hoc sinh gioi');
readln
end.