program lecsychny_perebir;

uses
  SysUtils;

{$APPTYPE CONSOLE}
  var    today1,today2 : TDateTime;

 var n,i,k:integer;
 	x:array [1..100] of integer;
 function next:boolean;
 var k,j,temp:integer;
 	found:boolean;
 	begin
 i:=n;
 found:=false;
 while (not found)and(i>1)do
 begin
 found:=x[i-1]<x[i];
 if(not found)then i:=i-1 else k:=i-1;
 end;

 if found then begin
               i:=n;
                while x[i]<=x[k] do i:=i-1;
                 temp:=x[i];
                 x[i]:=x[k];
                 x[k]:=temp;

  i:=k+1;
  j:=n;
  while i<j do
  	begin
  temp:=x[j];
  x[j]:=x[i];
  x[i]:=temp;
  i:=i+1;
  j:=j-1;
  	end;
  end;
  next:=found;
  end;

  begin
  write('n=');
  readln(n);
  for i:=1 to n do x[i]:=i;
  k:=1;
today1 := Time;
// writeln('Time 1 = '+TimeToStr(today));

  while next do begin   for i:=1 to n do write(x[i],' '); writeln;
  k:=k+1;
  end;
  write('k=',k);
today2:= Time;
 writeln('Time 1 = '+TimeToStr(today2-today1));


  readln;
  end.