11 lines
486 B
Text
11 lines
486 B
Text
PUT 7 IN max.department.number
|
|
PUT 12 IN department.sum
|
|
WRITE "police sanitation fire" /
|
|
PUT 2 IN police
|
|
WHILE police <= max.department.number:
|
|
FOR sanitation IN { 1 .. max.department.number }:
|
|
IF sanitation <> police:
|
|
PUT ( department.sum - police ) - sanitation IN fire
|
|
IF fire > 0 AND fire <= max.department.number AND fire <> sanitation AND fire <> police:
|
|
WRITE police>>6, sanitation>>11, fire>>5 /
|
|
PUT police + 2 IN police
|