PB return true

Procedure Money(num)
  If num < 0
    If Money < -num
      tip("Недостаточно денег")
      Debug "Недостаточно денег"
      Return #False
    Else
      Money + num
      Return #True
    Else
      Money + num
    EndIf
  EndIf
EndProcedure