program hanoi;

var n,i:integer;

procedure transfer(n,m1,m3,m2:integer);

     procedure diskmove(m1,m3:integer);

     begin

          writeln(i,') Move ',m1,' To ',m3); i:=i+1;

     end;

begin

     if n>0 then

          begin

               transfer(n-1,m1,m2,m3);

               diskmove(m1,m3);

               transfer(n-1,m2,m3,m1);

          end

     end;



begin {main begin}

     i:=1;

     write('Enter the number of disks: ');

     readln(n);

     writeln;

     transfer(n,1,3,2);

     readln;

end.