"ENTER A NUMBER"?->N
N+1->Y
0->R
Lbl 1
Y-1->Y
Y=0=>Goto 2
N/Y<>Int (N/Y)=>Goto 1
N/Y_
R+1->R
Goto 1
Lbl 2
"NUMBER OF       FACTORS"
R_