PROCEDURE HANOI(N:INTEGER; X,Y,Z:ICHI);
   BEGIN
      IF N>0 THEN
         BEGIN
            HANOI(N-1,X,Z,Y);
            WRITELN('MOVE ',N,' ',X,' TO ',Z);
            HANOI(N-1,Y,X,Z)
         END
   END;