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