[pdp8.git] / sw / src / pascal / PASCAL.PS

PROGRAM PASCAL(OUTPUT);
CONST   N = 13;
VAR     I,J: INTEGER;
        A: ARRAY[1..N] OF INTEGER;
BEGIN
FOR I := 1 TO N DO
        BEGIN A[I] := 1;
        FOR J := I-1 DOWNTO 2 DO
                A[J] := A[J-1] + A[J];
        WRITE(" ":2*(N-I)+1);
        FOR J := 1 TO I DO WRITE(A[J]:4);
        WRITELN
        END
END.
Commit	Line	Data
81e70d48 PH	1	PROGRAM PASCAL(OUTPUT);
	2	CONST N = 13;
	3	VAR I,J: INTEGER;
	4	A: ARRAY[1..N] OF INTEGER;
	5	BEGIN
	6	FOR I := 1 TO N DO
	7	BEGIN A[I] := 1;
	8	FOR J := I-1 DOWNTO 2 DO
	9	A[J] := A[J-1] + A[J];
	10	WRITE(" ":2*(N-I)+1);
	11	FOR J := 1 TO I DO WRITE(A[J]:4);
	12	WRITELN
	13	END
	14	END.