Data update

Task/Pascals-triangle/PascalABC.NET/pascals-triangle.pas

@@ -0,0 +1,28 @@
+procedure Pascal(r: Integer);
+var
+  triangle: array of array of Integer; // Зубчатый массив
+
+begin
+  SetLength(triangle, r);
+  for var i := 0 to r - 1 do
+  begin
+    SetLength(triangle[i], i + 1);
+    triangle[i][0] := 1;
+    triangle[i][i] := 1;
+
+    if i > 1 then
+      for var j := 1 to i - 1 do
+        triangle[i][j] := triangle[i - 1][j - 1] + triangle[i - 1][j];
+  end;
+
+  for var i := 0 to r - 1 do
+  begin
+    write(StringOfChar(' ', (r - i) * 2));
+    for var j := 0 to i do
+      write(triangle[i][j]:4);
+    writeln;
+  end;
+end;
+begin
+  Pascal(13); // Генерация треугольника Паскаля
+end.