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

}