Data update

Task/Count-in-factors/PascalABC.NET/count-in-factors.pas

@@ -0,0 +1,25 @@
+// https://rosettacode.org/wiki/Count_in_factors#PascalABC.NET
+
+function Factorize(x: integer): List<integer>;
+begin
+  Result := new List<integer>;
+  if x = 1 then
+  begin
+    Result.Add(1);
+    exit
+  end;
+  var i := 2;
+  repeat
+    if x.Divs(i) then
+    begin
+      Result.Add(i);
+      x := x div i;
+    end
+    else i += 1;
+  until x = 1;
+end;
+
+begin
+  var n := 22;
+  (1..n).PrintLines(x -> $'{x,3}: {Factorize(x).JoinToString('' * '')}')
+end.