usaco 1.5 checker 2008.5.9

usaco 1.5 checker 2008.5.9

{

ID:

PROG: checker

LANG: PASCAL

}

var t,up:longint; n:integer;

r:array[1..13]of integer;

procedure pp(a,b,c,d:longint);

var pos,p:longint;

procedure print;

var i:longint;

begin

for i:=1 to n-1 do write(r[i],' ');

writeln(r
);

end;

begin

if a<up then begin

pos:=up and not(a or b or c);

while pos<>0 do begin

p:=pos and -pos;

pos:=pos-p;

if t<=3 then

r[d]:=round(ln(p)/ln(2))+1;

pp(a+p,(b+p)shr 1,(c+p)shl 1,d+1);

end;

end else begin inc(t);

if t<=3 then

print;end;

end;

begin

assign(input,'checker.in');reset(input);

assign(output,'checker.out');rewrite(output);

readln(n);

t:=0;

up:=(1 shl n)-1;

pp(0,0,0,1);

writeln(t);

close(input);close(output);

end.