1 PROGRAM KNOBELEI(OUTPUT);
5 VAR A, B, I, J, Z: INTEGER;
6 ZEILE, NEU: ARRAY[1..MAX] OF INTEGER;
9 ZEILE[1] := 1; ZEILE[2] := 0;
12 REPEAT (******* ZEILE *******)
13 A := ZEILE[1]; I := 1; J := 1;
14 REPEAT (******* GRUPPE *******)
16 REPEAT (******* ZIFFER *******)
18 I := I + 1; B := ZEILE[I]
20 NEU[J] := Z; NEU[J+1] := A; J := J + 2;
24 FOR I := 1 TO J-1 DO BEGIN