Zadatak: permutacije brojeva

Code:

program permutacija;

var n,x,y,z,space:integer;

begin
     space := 0;
     writeln ('Unesite broj N: ');
     readln (n);
     if n > 9 then space := 1;

     for x:=0 to n do
        begin
        for y:=0 to n do
           begin
           for z:=0 to n do
              begin
                   if space > 0 then
                   begin
                   writeln ('Kombinacija br.',x,': ',x,' ',y,' ',z);
                   end
                   else
                   begin
                   writeln ('Kombinacija br.',x,': ',x,y,z);
                   end;
              end;
           end;
        end;

     writeln ('--------------- Kraj.');
end.