Data commit

Task/Primality-by-trial-division/Pascal/primality-by-trial-division-1.pas

@@ -0,0 +1,29 @@
+program primes;
+
+function prime(n: integer): boolean;
+var
+  i: integer; max: real;
+begin
+  if n = 2 then
+    prime := true
+  else if (n <= 1) or (n mod 2 = 0) then
+    prime := false
+  else begin
+    prime := true; i := 3; max := sqrt(n);
+    while i <= max do begin
+      if n mod i = 0 then begin
+        prime := false; exit
+      end;
+      i := i + 2
+    end
+  end
+end;
+
+{ Test and display primes 0 .. 50 }
+var
+  n: integer;
+begin
+  for n := 0 to 50 do
+    if (prime(n)) then
+      write(n, ' ');
+end.

Task/Primality-by-trial-division/Pascal/primality-by-trial-division-2.pas

@@ -0,0 +1,14 @@
+program TestTrialDiv;
+{$IFDEF FPC}
+  {$MODE DELPHI}{$Smartlink ON}
+{$ELSE}
+  {$APPLICATION CONSOLE}// for Delphi
+{$ENDIF}
+uses
+  primtrial;
+{ Test and display primes 0 .. 50 }
+begin
+  repeat
+    write(actPrime,' ');
+  until nextPrime > 50;
+end.