program tinhtb; var toan,ly,hoa,van,su,dia,anh,sinh,CN,nhac,MT,TD,GDCD:real; DTBCM:real; begin writeln(' nhap vao mon toan');readln(toan); writeln(' nhap vao mon ly');readln(ly); writeln(' nhap vao mon hoa');readln(hoa); writeln(' nhap vao mon van');readln(van); writeln(' nhap vao mon su');readln(su); writeln(' nhap vao mon dia');readln(dia); writeln(' nhap vao mon anh');readln(anh); writeln(' nhap vao mon sinh');readln(sinh); writeln(' nhap vao mon CN');readln(CN); writeln(' nhap vao mon nhac');readln(nhac); writeln(' nhap vao mon MT');readln(MT); writeln(' nhap vao mon TD');readln(TD); writeln(' nhap vao mon GDCD');readln(GDCD); DTBCM:= (toan*2+ly+hoa+van*2+su+dia+anh+sinh+CN+nhac+MT+GDCD+TD)/15; if( DTBCM>=8) and (toan>=8)and(ly>=6.5)and(hoa>=6.5)and(su>=6.5) and(dia>=6.5) and(anh>=6.5) and(sinh>=6.5)and(CN>=6.5)and(nhac>=6.5) and(MT>=6.5) and(TD>=6.5) and(GDCD>=6.5) and(Van>=6.5) then begin write('Xep loai HLgioi');readln; end else if( DTBCM>=8) and (van>=8)and(ly>=6.5)and(hoa>=6.5)and(su>=6.5) and(dia>=6.5) and(anh>=6.5) and(sinh>=6.5)and(CN>=6.5)and(nhac>=6.5) and(MT>=6.5) and(TD>=6.5) and(GDCD>=6.5) and(Toan>=6.5) then begin write('Xep loai HLgioi');readln; end else if( DTBCM>=6.5) and (van>=6.5)and(ly>=5)and(hoa>=5)and(su>=5) and(dia>=5) and(anh>=5) and(sinh>=5)and(CN>=5)and(nhac>=5) and(MT>=5) and(TD>=5) and(GDCD>=5) and(Toan>=5) then begin write('Xep loai HLkha');readln;end else if( DTBCM>=6.5) and (van>=5)and(ly>=5)and(hoa>=5)and(su>=5) and(dia>=5) and(anh>=5) and(sinh>=5)and(CN>=5)and(nhac>=5) and(MT>=5) and(TD>=5) and(GDCD>=5) and(Toan>=6.5) then begin write('Xep loai HLkha');readln;end else if( DTBCM>=6.5) and (van>=5)and(ly>=5)and(hoa>=5)and(su>=5) and(dia>=5) and(anh>=5) and(sinh>=5)and(CN>=5)and(nhac>=5) and(MT>=5) and(TD>=5) and(GDCD>=5) and(Toan>=6.5) then begin write('Xep loai HLkha');readln;end else if( DTBCM>=5) and (van>=5)and(ly>=3.5)and(hoa>=3.5)and(su>=3.5) and(dia>=3.5) and(anh>=3.5) and(sinh>=3.5)and(CN>=3.5)and(nhac>=3.5) and(MT>=3.5) and(TD>=3.5) and(GDCD>=3.5) and(Toan>=3.5) then begin write('Xep loai HLtb');readln;end else if( DTBCM>=5) and (van>=3.5)and(ly>=3.5)and(hoa>=3.5)and(su>=3.5) and(dia>=3.5) and(anh>=3.5) and(sinh>=3.5)and(CN>=3.5)and(nhac>=3.5) and(MT>=3.5) and(TD>=3.5) and(GDCD>=3.5) and(Toan>=5) then begin write('Xep loai HLtb');readln;end {if( DTBCM<5) then} else begin writeln('Xep loai HLYeu');readln;end; end. end. . and(Toan>=5) then begin write('Xep loai HLtb');readln;end {if( DTBCM<5) then} else begin writeln('Xep loai HLYeu');readln;end; end. end and(TD>=6.5) and(GDCD>=6.5) and(Toan>=6.5) then begin write('Xep loai HLgioi');readln; end else if( DTBCM>=6.5) and (van>=6.5)and(ly>=5)and(hoa>=5)and(su>=5)