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

IF A=B OR A=C OR A=D OR B=C OR B=D OR C=D THEN PRINT "Правда" ELSE  PRINT "Неправда"

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