danh hiệu HS bằng pascal

program xeploaiHS; var dtbcm:real;hk:integer; begin writeln(' nhap vao dtbcm');readln(dtbcm); writeln(' nhap vao hk');readln(hk); if(dtbcm>=8)and ( hk=1) then begin writeln('hs gioi');readln; end else if(dtbcm>=8) and (hk=2) then begin writeln('hsTT');readln; end else if(dtbcm>=8) and(hk=3) then begin writeln('hsTB');readln; end else if(dtbcm>=6.5) and(hk=1) then begin writeln('hsTT');readln; end else if(dtbcm>=6.5) and(hk=2) then begin writeln('hsTT');readln; end else if(dtbcm>=6.5) and(hk=3) then begin writeln('hsTB');readln; end else if(dtbcm>=5) and(hk=1) then begin writeln('hsTB');readln; end else if(dtbcm>=5) and(hk=2) then begin writeln('hsTB');readln; end else writeln('hsYeu');readln; end. end. . writeln('hsTB');readln; end else if(dtbcm>=5) and(hk=2) then begin writeln('hsTB');readln; end else writeln('hsYeu');readln;. and(hk=3) then begin writeln('hsTB');readln; end else if(dtbcm>=6.5) and(hk=1) then begin writeln('hsTT');readln; end else if(dtbcm>=6.5)