Theo quy định của nhà trường, mỗi trường hợp không đeo thẻ học sinh sẽ bị trừ đi 3 điểm thi đua của lớp, mỗi trường hợp nói chuyện trong lớp bị trừ 2 điẻm và mỗi trường hợp đi muộn bị trừ 5 điểm. Sổ đầu bài ghi nhận trong tháng có t trường hợp không đeo thẻ, n trường hợp nói chuyện và m trường hợp đi muộn. Hãy nhập các dữ liệu này vào từ bàn phím và đưa ra màn hình số điẻm thi đua mà lớp bị trừ trong tháng. Tất cả các dữ liệu đều là số nguyên

program SODIEMTHIDUA;

uses crt;

var t,n,m:integer;

begin

clrscr;

write('So truong hop khong deo the la: '); readln(t);

write('So truong hop noi chuyen trong lop: '); readln(n);

write('So truong hop di hoc muon: '); readln(m);

writeln('So diem thi dua ma lop bi tru trong thang la: ',t*3+n*2+m*5);

readln;

end.

Program BTT;
Uses crt;
Var diemtru, nc, dhm, kdt, t, n, m: longint;
Begin
        Clrscr;
        Write('Nhap so lan khong deo the: '); Readln(t);
        kdt:=t*3;
        Write('Nhap so lan noi chuyen trong lop: '); Readln(n);
        nc:=n*2;
        Write('Nhap so lan di hoc muon: '); Readln(m);
        dhm:=m*5;

        diemtru:=kdt+nc+dhm;
        Write('Diem tru cua lop la: ',diemtru);
        Readln
End.