program KQ;
uses crt;
var
dtb,lt,th:real;
hoten,sbd,ketqua,xeploai:string;
Begin
clrscr;
write('Nhap SBD : '); readln(sbd);
write('ho ten :');readln (hoten);
write('Nhap diem thuc hanh: ');readln(th);
write('Nhap diem ly thuyet: ');readln(lt);
dtb:=(lt+th)/2;
if dtb>= 5 then...