{* Игра телепат *}

REM basic

' Игра телепат


SCREEN 0  
CLS
DATA  Задумай число , Прибавь 7 , Результат умнож на 3 , Отними 4
DATA Отними задуманное число , Умнож на 2 , Отними 1, Напечатай результат
For i = 1 To 8
READ a$: PRINT
PRINT a$ + " и нажми ввод": PRINT
INPUT c$
Next i
PRINT "Задуманное вами число"; (VAL(c$) - 33) / 4
End