Sub Move(M As Integer ,A As Integer,B As Integer)
  Dim C As Integer
  If M=1 Then
   Print "сделать ход ",A,"->",B
  Else
   C=6-A-B '{C - третий стержень: сумма номеров равна 6}
   Move(M-1,A,C)
   Move(1,A,B)
   Move(M-1,C,B)
  EndIf
End Sub

Dim N As Integer
Input "N=",N
Move(N,1,2)
Sleep