{* Задача144 *}

REM basic

' В закрытом ящике находится N белых и М черных шаров.По исходному перечню вынутых шаров (заданному в форме:"белый,черный,..."):
' 1)рассчитать и вывести вероятности появления очередного белого и черного шаров.
' 2)вывести также (словом)наиболее вероятный цвет следующего шара.


Dim WhiteCount As Integer, BlackCount As Integer, Summ As Integer
Dim CurrentBall As Integer
CLS
Do
    INPUT "Введите количество белых и черных шаров: ", WhiteCount, BlackCount
Loop While WhiteCount  0 Then
                WhiteCount = WhiteCount - 1
            Else
                PRINT "Белых шаров больше не осталось в ящике"
            End If
        Case Else
            Exit Do
    End Select
Loop
If WhiteCount + BlackCount  BlackProb
        PRINT "Вероятность извлечения белого шара больше"
    Case Is < BlackProb
        PRINT "Вероятность извлечения белого шара меньше вероятности черного"
    Case Is = BlackProb
        PRINT "Вероятность извлечения белого шара равна вероятности черного"
End Select