program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var global_stufen : integer;
    global_string : string;
    Stufen : Integer;

procedure Stufe(iZähler : Integer; Str : String);
  begin
    if iZähler >=2 then
    begin
       Stufe(iZähler-1, Str+ '1');
       Stufe(iZähler-2, Str+ '2');
    end else
      if iZähler = 1 then
      Stufe(iZähler-1, Str+ '1')
      else begin
       inc(global_stufen);
       global_string := global_string + Str + ' | ';
      end;
  end;

begin
  global_stufen := 0;
  writeln('Bitte Anzahl der Stufen eingeben:');
  readln(Stufen);
  Stufe(Stufen, '');
   writeln(global_string);
   writeln('Anzahl der Moeglichkeiten:');
   writeln(global_stufen);
   readln;
end.
end.