limite = 18 : cont = 0 : n = 0
print "The first", limite, " Disarium numbers are:"
while cont < limite
    if isDisarium(n) then
        print n, " ";
        cont = cont + 1
    fi
    n = n + 1
wend
end

sub isDisarium(n)
    digitos = len(str$(n))
    suma = 0 : x = n
    while x <> 0
        r = mod(x, 10)
        suma = suma + (r ^ digitos)
        digitos = digitos - 1
        x = int(x / 10)
    wend
    if suma = n then return True else return False : fi
end sub