integer n, I, t, s 
T=1 
S=0 
Do I=6100 00 
Do n=2, I/2-1 
If (mod (I, n)==0) then 
T=t + n + I/n 
Cycle 
End the if 
End do 
If (t==I) then 
S=s + 1 
End the if 
End do 
Print *, "the number of Numbers=", s 
End