PROGRAM TUERMEVONHANOI(INPUT,OUTPUT); (*REKURSIV*)
  CONST NMAX=10;
  VAR T1,T2,T3,N:INTEGER; 
  PROCEDURE TRANSPORT(VAR N,T1,T2,T3:INTEGER);
    VAR M:INTEGER;
  BEGIN M:=N-1;
    IF N>1 THEN TRANSPORT(M,T1,T3,T2);
    WRITELN("SCHLEPPE SCHEIBE",N:3," VON TURM",T1:2," NACH TURM",T2:2);
    IF N>1 THEN TRANSPORT(M,T3,T2,T1)
  END; (*TRANSPORT*)

BEGIN T1:=1;T2:=2;T3:=3;
  WRITELN("TUERME VON HANOI");
  WRITE("WIEVIELE SCHEIBEN SOLLEN TRANSPORTIERT WERDEN");
  READLN(N);IF(N>0)AND(N<=NMAX) THEN TRANSPORT(N,T1,T2,T3)
            ELSE WRITELN("NUMBER OUT OF RANGE; ONLY 1 ..",NMAX:3)
END.