Amicable pairs: Difference between revisions

Content deleted Content added

Inline

@@ Line 5,610: / Line 5,610: @@
 f1 = 2
 while (f1 * f1) <= n do
+  begin
-  beginexit
     if mod(n, f1) = 0 then
       begin