RosettaCodeData/Task/Permutations/PascalABC.NET/permutations.pas

##
var a: array of integer := (1, 2, 3);
writeln(a);
while nextpermutation(a) do writeln(a);