program baigiai;
uses crt;
var a,b,c,t,n,m,s:longint;
begin
clrscr;
write('moi truong hop khong deo the hoc sinh bi tru bao nhieu diem:');readln(a);
write('moi truong hop noi chuyen trong lop bi tru bao nhieu diem:');readln(b);
write('moi truong hop di hoc muon bi tru bao nhieu diem:');readln(c);
write('co bao nhieu khong deo the hoc sinh:');readln(t);
write('co bao nhieu truong hop noi chuyen trong lop:');readln(n);
write('co bao nhieu truong hop di hoc tre:');readln(m);
s:=(a*t)+(b*n)+(c*m);
writeln('so diem thang nay bi tru la:',s);
readln;
end.
đây nhá bạn cho mình xin ctlhn
