begin comment The Towers Of Hanoi Algol-60 Copyright (C) 1999 Amit Singh. All Rights Reserved. http://hanoi.kernelthread.com ; procedure movedisk(n, f, t); integer n; integer f; integer t; begin outstring (1, “move ”); outinteger(1, f); outstring (1, “ --> ”); outinteger(1, t); outstring (1, “\n”); end; procedure dohanoi(n, f, t, u); integer n; integer f; integer t; integer u; begin if n < 2 then movedisk(1, f, t) else begin dohanoi(n - 1, f, u, t); movedisk(1, f, t); dohanoi(n - 1, u, t, f); end; end; dohanoi(3, 1, 3, 2); end