projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
097c31efea4d1cd3773e06f3a8a19a1d30b03083
[pdp8.git]
/
PASCAL.PS
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.