tasks a-s

Task/Pascals-triangle/DWScript/pascals-triangle.dwscript

@@ -0,0 +1,15 @@
+procedure Pascal(r : Integer);
+var
+   i, c, k : Integer;
+begin
+   for i:=0 to r-1 do begin
+      c:=1;
+      for k:=0 to i do begin
+         Print(Format('%4d', [c]));
+         c:=(c*(i-k)) div (k+1);
+      end;
+      PrintLn('');
+   end;
+end;
+
+Pascal(9);