Имеется четыре A,B,C,D произвольных числа. ЭВМ должна ответить на вопрос: Правда ли что …? (вопрос найдете в таблице вариантов). Ответ ЭВМ должна вывести в виде текста – слов ”Правда” или ”Неправда”. Хотя бы два из чисел равны — QBasic(Бейсик)

input"vvedite 4 chisla ",a,b,c,d
IF A=B OR A=C OR A=D OR B=C OR B=D OR C=D THEN PRINT "Правда" ELSE  PRINT "Неправда"

Тестирование выполнено в программе QB64 ( Скачать )