{* Задача222 *}

REM basic

' Программа задает вопрос "Стакан наполовину заполнен водой.
' Стакан наполовину пуст (1) или наполовину полон (2)?".
' Если пользователь вводит (1), то машина сообщает "Вы писсемист",
' если введено (2), то - "Вы оптимист".


CLS
PRINT "Стакан наполовину заполнен водой."
INPUT "Стакан наполовину пуст (1) или наполовину полон (2)? ", num
If num = 1 Then
        PRINT "Вы писсемист"
ElseIf num = 2 Then
        PRINT "Вы оптимист"
End If
End