Task
a(1) = 1; for n > 1, a(n) = largest proper divisor of n, where n < 101 .


PRINT "El mayor divisor propio de n es:"
PRINT
PRINT "  1  1";
FOR i = 3 TO 100
    FOR j = i-1 TO 1 STEP -1
        IF remainder(i, j) = 0 THEN
           PRINT USING$("###", j);
           EXIT FOR
        END IF
    NEXT  j
    IF remainder(i, 10) = 0 THEN PRINT
NEXT i
END