clear
for i=1 to 100
    k=0
    cstr=""
    for j=1 to i-1
        if i % j=0
            k=k+j
            cstr = cstr+alltrim(str(j))+","
        endif
    endfor
    if k=i
        ?str(i) +"  完数 :" +left(cstr,len(cstr)-1)
    endif
endfor