rows := 13;+
−
coef := 1;+
−
+
−
i := 0;+
−
while (i < rows) do {+
−
+
−
  space := 1;+
−
+
−
  while (space <= rows - i) do {+
−
      write("  ");+
−
      space := space + 1+
−
  };+
−
+
−
  j := 0;+
−
  while (j <= i) do {+
−
+
−
      if ((j == 0) || i == 0) then {+
−
        coef := 1+
−
      } else {+
−
        coef := (coef * ((i - j) + 1)) / j+
−
      };+
−
+
−
      if (coef < 10) then write("   ") else +
−
      if (coef < 100) then write("  ") else+
−
      if (coef < 1000) then write(" ")+
−
      else skip;+
−
+
−
      write(coef);+
−
      j := j + 1+
−
  };+
−
+
−
+
−
  write("\n");+
−
  i := i + 1+
−
}+
−