PRINT "The tau functions for the first 100 positive integers are:"
PRINT

FOR N = 1 TO 100
    IF N < 3 THEN
       LET T = N
    ELSE
       LET T = 2
       FOR A = 2 TO INT((N+1)/2)
           IF REMAINDER (N, A) = 0 THEN LET T = T + 1
       NEXT A
    END IF
    PRINT " "; T;
    IF REMAINDER (N, 10) = 0 THEN PRINT
NEXT N
END