6 lines
91 B
ObjectPascal
6 lines
91 B
ObjectPascal
begin
|
|
var a := Arr(1..4);
|
|
repeat
|
|
a.Println;
|
|
until not NextPermutation(a);
|
|
end. |