program Hanoj;
{Reseni ulohy o Hanojskych vezich}

var N: integer;   {pocet kotoucu}

procedure Prenes(N,A,B,C: integer);
  {prenese vez N kotoucu z koliku A na kolik B,
  pritom vyuziva kolik C jako pomocny pro odkladani}
  begin
  if N>0 then
    begin
    Prenes(N-1,A,C,B);
    writeln('Prenes kotouc z ', A, ' na ', B);
    Prenes(N-1,C,B,A)
    end
  end;  {procedure Prenes}

begin
write('Pocet kotoucu: ');
readln(N);
Prenes(N,1,2,3)
end.