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

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