#define limite 19

Function isDisarium(n As Integer) As Boolean
    Dim As Integer digitos = Len(Str(n))
    Dim As Integer suma = 0, x = n
    While x <> 0
        suma += (x Mod 10) ^ digitos
        digitos -= 1
        x \= 10
    Wend
    Return Iif(suma = n, True, False)
End Function

Dim As Integer cont = 0, n = 0, i
Print "The first"; limite; " Disarium numbers are:"
Do While cont < limite
    If isDisarium(n) Then
        Print n; " ";
        cont += 1
    End If
    n += 1
Loop
Sleep