program tinh_trung_binh_mon; 
uses crt; 
const kha=6.5; 
var toan,van,ly,hoa,sinh,su,dia,anh,congnghe... 

begin 

{may cai cho trong '...' thi thay doi di dung giong bai to, chet day!!} 

writeln ('Day la chuong trinh tinh diem trung binh mon!'); 

writeln ('Vui long nhap diem mon:'); 
write ('Toan:'); readln (toan); 
write ('Ngu van:'); readln (van); 
write ('Vat ly:'); readln (ly); 
write ('Hoa hoc:'); readln (hoa); 
write ('Sinh hoc:'); readln (sinh); 
write ('Lich su:'); readln (su); 
write ('Dia li:'); readln (dia); 
write ('Tieng anh:'); readln (anh); 
write ('Cong nghe:'); readln (congnghe); 
write ('Cong dan:'); readln (congdan); 
write ('Tin:'); readln (tin); 
write ('Quoc phong:'); readln (qp); 
write ('The duc:'); readln (td); 

TBM:=(toan*2+van*2+ly+hoa+sinh+su+dia+a... 

writeln ('Diem trung binh mon cua ban la',TBM:2:2); 

if TBM>kha 
then 
Writeln ('=> Ban co hoc luc tren kha!!!(tren 6,5 diem)') 
else 
Writeln ('=> Ban co hoc luc duoi kha!!! (duoi 6.5 diem)'); 

Write ('OK, vui long nhan Enter de ngung phien lam viec!!'); readln; 

End.