Amicable pairs: Difference between revisions
Content deleted Content added
No edit summary |
|||
Line 387:
comment - main program begins here;
integer a, b
outstring(1,"Searching up to 20000 for amicable pairs\n");
found := 0;
Line 395:
if b > a then
begin
begin
found := found + 1;
|