Procedure isDisarium(n.i)
  digitos.i = Len(Str(n))
  suma.i = 0
  x.i = n
  While x <> 0
    r.i = (x % 10)
    suma + Pow(r, digitos)
    digitos - 1
    x / 10
  Wend
  If suma = n
    ProcedureReturn #True
  Else
    ProcedureReturn #False
  EndIf
EndProcedure

OpenConsole()
limite.i = 19
cont.i = 0
n.i = 0
PrintN("The first" + Str(limite) + " Disarium numbers are:")
While cont < limite
  If isDisarium(n)
    Print(Str(n) + #TAB$)
    cont + 1
  EndIf
  n + 1
Wend
Input()
CloseConsole()