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