Amicable pairs: Difference between revisions

 

comment - main program begins here;

outstring(1,"Searching up to 20000 for amicable pairs\n");

found := 0;

if b > a then

begin

begin

found := found + 1;