- Sử dụng tệp : 

uses crt;

var A : array [1 .. 100] of integer;

i, n, d : integer; f1, f2 : text;

begin

clrscr;

assign(f1, 'input'); reset(f1);

assign(f2, 'output'); rewrite(f2);

d := 0; readln(f1, n);

for i := 1 to n do

begin read(f1, A[i]);

if A[i] mod n = 0 then d := d + 1;

end; writeln(f2, d);

for i := 1 to n do

if A[i] mod n = 0 then write(f2, i,' ');

close(f1); close(f2);

end.

Tổ chức cho các em lao động, chẳng hạn như vệ sinh trường lớp: Hình thức này áp dụng cho đối tượng học sinh xả rác bừa bãi, viết bậy hoặc vấy bẩn lên tường lớp học, làm hư hại cơ sở vật chất của trường,... Học sinh bị phạt sẽ vệ sinh trường lớp, tự khắc phục hậu quả do hành vi vô ý thức của các em gây ra, giúp các em biết trân trọng môi trường sạch đẹp mình đang có, ý thức rằng việc giữ gìn cảnh quan trường lớp không phải chỉ là công việc của những lao công mà là trách nhiệm của mỗi học sinh với ngôi trường của mình.

Ngoài ra các thầy cô có thể áp dụng hình thức kỷ luật: yêu cầu các em học sinh trồng cây xanh, cây thuốc nam để các em nhận thức được việc bảo vệ cây cối.

Học sinh tham gia buổi lao động cắt cỏ ở vườn trường.