A large commit.

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

diff --git a/sw/src/pascal/PASCAL.PS b/sw/src/pascal/PASCAL.PS
new file mode 100644 (file)
index 0000000..097c31e
--- /dev/null
+++ b/sw/src/pascal/PASCAL.PS
@@ -0,0 +1,14 @@
+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.