23 lines
219 B
Text
23 lines
219 B
Text
print "P S F"
|
|
|
|
for p = 2 to 7 step 2
|
|
|
|
for s = 1 to 7
|
|
|
|
if s <> p then
|
|
|
|
let f = (12 - p) - s
|
|
|
|
if f > 0 and f <= 7 and f <> s and f <> p then
|
|
|
|
print p, " ", s, " ", f
|
|
|
|
endif
|
|
|
|
endif
|
|
|
|
next s
|
|
|
|
next p
|
|
|
|
end
|