10 dim A#1, B#1, C#1

20 input "Сколько колец?", N

30 gosub 1(N, "A", "B", "C"): print: end

40 def fn 1(N, X#, Y#, Z#)

50 A# = X#: B# = Y#: C# = Z#

60 if N>1 then 80

70 print A#; "->"; c#; " "; :goto 120

80 N1 = N: gosub 1(N1 - 1, A#, C#, B#);

90 print A#; "->"; b#; " ";

100 gosub 1(n1 - 1, C#, A#, B#)

110 N1 = N1 + 1: A1# = B#: B# = A1#

120 return