A large commit.
[pdp8.git] / sw / src / pascal / VARIA.PS
CommitLineData
81e70d48
PH
1PROGRAM VARIATIONEN(INPUT,OUTPUT);
2
3 VAR I,K,N: INTEGER;
4 Z: ARRAY[0..9] OF INTEGER;
5
6 PROCEDURE PRINT;
7 VAR I: INTEGER;
8 BEGIN
9 FOR I := 1 TO K DO WRITE(Z[I]:1); WRITELN
10 END;
11
12
13 PROCEDURE VARIA(N,K: INTEGER);
14 VAR I: INTEGER;
15 BEGIN
16 IF K>0 THEN FOR I:= 1 TO N DO
17 BEGIN Z[K] := I; VARIA(N,K-1) END
18 ELSE PRINT
19 END;
20
21
22BEGIN
23 READ(N,K);
24 VARIA(N,K)
25END.