program Perestanovka;
{$APPTYPE CONSOLE}
type arr=array[1..100] of char;
procedure change(k,n:integer;a:arr;var f:text);
var i:integer;t:char;
begin
if k=1 then begin
for i:=1 to n do write(f,a[i],' ');
writeln(f);end else begin
change(k-1,n,a,f);
for i:=1 to k-1 do begin
t:=a[i];a[i]:=a[k];a[k]:=t;
change(k-1,n,a,f);
t:=a[i];a[i]:=a[k];a[k]:=t;
end;end;
end;
var a:arr;i,n,s:integer;f:text;
begin
writeln('Vvedit kilkist elementiv');
readln(n);
for i:=1 to n do begin
writeln('Vvedit',i,' element');
readln(a[i]);end;
assign(f,'output.txt');rewrite(f);
change(n,n,a,f);
close(f);
end.