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
}