{* Задача221 *}

REM basic

' Игра "Устный счет". Программа выдает 2 целых случайных числа. Пользователь
' должен умножить их в уме и ввести ответ. Машина анализирует его и выдает
' сообщение "Правильно"/"Неправильно".


CLS
RANDOMIZE TIMER
chislo1 = INT(RND * (10 - 1) + 1)
chislo2 = INT(RND * (10 - 1) + 1)

PRINT "Первое число: "; chislo1
PRINT "Второе число: "; chislo2

proizved1 = chislo1 * chislo2

INPUT "В уме вычислите произведение двух чисел и введите ответ: ", proizved2

If proizved1 = proizved2 Then PRINT "Правильно" Else PRINT "Неправильно"

End