sw/src/pascal/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.