1 PROGRAM KOMBINATIONEN(INPUT,OUTPUT);
5 Z: ARRAY[0..9] OF INTEGER;
10 FOR I := 1 TO K DO WRITE(Z[I]:1); WRITE(" ":2)
15 Z[0] := -1; ALL := FALSE;
16 FOR I := 1 TO K DO Z[I] := I;
20 WHILE Z[I] = N-K+I DO I := I - 1;
23 FOR I := I+1 TO K DO Z[I] := Z[I-1] + 1