Idoneal numbers: Difference between revisions

var count, n, idoneal, a, b, c, ab, aplusb, nminusa, sum, aagain, bagain;

a := 10;

ifwhile a < n then* idoneal do begin

aagaina := a + 1;

while aagainnminusa := 1n do- begina;

b nminusa := n - := a;

if b <= nminusa then := a;begin

ifbagain b <:= nminusa then beginidoneal;

while bagain := idoneal;1 do begin

whileb bagain := 1b do+ begin1;

b ab := ba +* 1b;

ab aplusb := a *+ b;

c aplusb := a( +n - ab ) / ( aplusb b);

c sum := (ab n+ -( abc ) / (* aplusb );

sum idoneal := ab + ( c * aplusb )0;

if c <= b then idoneal := 01;

if csum <= b > n then idoneal := 1;

bagain if sum <> n then idoneal := 10;

if b bagain<= nminusa then if sum <= n then bagain := 0;idoneal

end;