sub is_gapful(n)
    m = n
   l = mod(n, 10)
    while (m >= 10)
        m = int(m / 10)
    wend
    return (m * 10) + l
end sub

sub muestra_gapful(n, gaps)
    inc = 0
    print "Primeros ", gaps, " numeros gapful >= ", n
    while inc < gaps
        if mod(n, is_gapful(n)) = 0 then
            print " " , n ,
            inc = inc + 1
        end if
        n = n + 1
    wend
    print chr$(10)
end sub

muestra_gapful(100, 30)
muestra_gapful(1000000, 15)
muestra_gapful(1000000000, 10)
muestra_gapful(7123,25)
end