GCW Script on Web

[t-m-z]

DIM T FOR I = 15 TO 99 LISTCLEAR(T) DIVISORS(T, I) S = SUM(T) - I D = I - 4 IF S = D THEN PRINT I, D, T ENDIF NEXT

CAST ERROR: DIFFERENT TYPES pos.: 50 line: S = SUM(T) - I => )↩S = S ^