


>#BERECHNUNG DER TEILER EINER NATUERLICHEN ZAHL
#UND PRUEFUNG< , >OB SIE HARMONISCH IST (SUMME DER TEILER
#GLEICH ZAHL>)< '


<
sl'Ddaprt'cr4'cr4'uc2'b'e'r'e'c'h'n'u'n'g' 'd'e'r' 't'e'i'l'e'r' '
De'i'n'e'r' 'n'a't'u'e'r'l'i'c'h'e'n' 'z'a'h'l'cr4''
s5'Ddaprt'uc2'z'lcl'a'h'l'uc2'>:<'lcl' ' ' ''
D0';'y''
sl0'Diread'n''
Ddaprt'cr4'cr4'uc2'n' 'lcl'h'a't' 'd'i'e' 'uc2't'lcl'e'i'l'e'r'
D 'uc2'>:<'lcl'cr4''
Dl';'z''
s20'Dn'i/'z''
Dif'remdr'zero's40''
s30'Dfor'z'step'l'until'n'rpeat's20''
Duse's50''
s40'Dl000'iprt'z''
Dz'i+'y';'y''
Duse's30''
s50'Dif'>[<'y'i_'n'ix'2'>]<'zero's80''
s60'Ddaprt'cr4'uc2'd'lcl'i'e' 'uc2'z'lcl'a'h'l' 'i's't' 'n'i'c'h't' '
Dh'a'r'm'o'n'i's'c'h'cr4'cr4''
s65'Ddaprt'uc2'w'lcl'u'e'n's'c'h'e'n' 'uc2's'lcl'i'e' 'n'o'c'h'
D 'e'i'n'e' 'uc2'r'lcl'e'c'h'n'u'n'g'uc2'>?<' '>(<'lcl'j'a'/'n'e'i'n'uc2'>)<'
Dlcl' ' ' ''
Diread'f''
Dif'>[<'f'i_'l4'>]<'zero's70''
Dstop''
s70'Ddaprt'cr4'cr4''
Duse's5''
s80'Ddaprt'cr4'uc2'd'lcl'i'e' 'uc2'z'lcl'a'h'l' 'i's't' 'e'i'n'e' '
Dh'a'r'm'o'n'i's'c'h'e' 'uc2'z'lcl'a'h'l'cr4'cr4''
Duse's65'''