5 lines
93 B
ObjectPascal
5 lines
93 B
ObjectPascal
|
##
|
||
|
|
var a: array of integer := (1, 2, 3);
|
||
|
|
writeln(a);
|
||
|
|
while nextpermutation(a) do writeln(a);
|