Dưới đây là mã TUBO PASCAL cho từng bài:
Bài 1: Tính tổng điểm bị trừ thi đua trong tháng
```pascal
program Bai1;
var
a, b, c, t, n, m, tong: integer;
begin
readln(a, b, c, t, n, m);
tong := a*t + b*n + c*m;
writeln(tong);
end.
```
Bài 2: Tính diện tích phần còn lại của hình chữ nhật sau khi trừ lối đi
```pascal
program Bai2;
var
a, b, c, dientich: integer;
begin
readln(a, b, c);
dientich := a*b - c*(a + b - c);
writeln(dientich);
end.
```
Bài 3: Tính tổng nhỏ nhất và lớn nhất của 4 trong 5 số nguyên dương
```pascal
program Bai3;
var
a, b, c, d, e, sum, minVal, maxVal: integer;
begin
readln(a, b, c, d, e);
sum := a + b + c + d + e;
minVal := sum - max(a, max(b, max(c, max(d, e))));
maxVal := sum - min(a, min(b, min(c, min(d, e))));
writeln(minVal, ' ', maxVal);
end.
```
Bạn có thể copy và chạy từng đoạn code trên trong môi trường Turbo Pascal để kiểm tra kết quả. Nếu cần hỗ trợ thêm, bạn cứ hỏi nhé!