| 1 | PROGRAM KNOBELEI(OUTPUT); |
| 2 | |
| 3 | CONST MAX=80; |
| 4 | |
| 5 | VAR A, B, I, J, Z: INTEGER; |
| 6 | ZEILE, NEU: ARRAY[1..MAX] OF INTEGER; |
| 7 | |
| 8 | BEGIN |
| 9 | ZEILE[1] := 1; ZEILE[2] := 0; |
| 10 | WRITELN("1"); |
| 11 | |
| 12 | REPEAT (******* ZEILE *******) |
| 13 | A := ZEILE[1]; I := 1; J := 1; |
| 14 | REPEAT (******* GRUPPE *******) |
| 15 | Z := 0; |
| 16 | REPEAT (******* ZIFFER *******) |
| 17 | Z := Z + 1; |
| 18 | I := I + 1; B := ZEILE[I] |
| 19 | UNTIL A<>B; |
| 20 | NEU[J] := Z; NEU[J+1] := A; J := J + 2; |
| 21 | A := B |
| 22 | UNTIL B=0; |
| 23 | ZEILE[J] := 0; |
| 24 | FOR I := 1 TO J-1 DO BEGIN |
| 25 | ZEILE[I] := NEU[I]; |
| 26 | WRITE( ZEILE[I] :1 ) |
| 27 | END; |
| 28 | WRITELN |
| 29 | UNTIL J>MAX |
| 30 | END. |