X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fsrc%2Fpascal%2FPASCAL.PS;fp=sw%2Fsrc%2Fpascal%2FPASCAL.PS;h=097c31efea4d1cd3773e06f3a8a19a1d30b03083;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/src/pascal/PASCAL.PS b/sw/src/pascal/PASCAL.PS
new file mode 100644
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.