Hoán Vị Của 1 đến n. code đệ quy quay lui pascal.

var a:array[1..100] of integer;

    n:integer;

procedure print;

    var k:integer;

    begin

       for k:=1 to n do write(a[k]);

       writeln;

    end;

procedure try(i:integer);

   var j:integer;

    begin

       for j:=1 to n do

       begin

          a[i]:=j;

          if i=n then print

          else try(i+1);

       end;

    end;

begin

    write(' nhap n : ');

    readln(n);

    try(1);

    readln

end.