USES CRT;

VAR DEM:INTEGER;

PROCEDURE HANOI(N,A,B,C:INTEGER);

BEGIN

IF N=1

THEN BEGIN

INC(DEM);

WRITELN(DEM,A:10,'->',B);

END

ELSE BEGIN

HANOI(N-1,A,C,B);

HANOI(1,A,B,C); {PHAN TACH TANG DE CHUYEN}

HANOI(N-1,C,B,A) {DAT TANG}

END

END;

BEGIN

CLRSCR;

DEM:=0;

HANOI(4,1,2,3);

READLN

END.