Решить на бейсике . имеется четыре произвольных числа: a,b,c,d. при вводе их в эвм, она должна ответить на вопрос: правда ли что (вопрос в таблице вариантов). ответ эвм должна вывести в виде текста - слов "правда" или "неправда". точно одно число равно нулю?

CLS
INPUT a, b, c, d
IF a = 0 AND b * c * d <> 0 OR b = 0 AND a * c * d <> 0 OR c = 0 AND a * b * d <> 0 OR d = 0 AND a * b * c <> 0 THEN
   PRINT "Pravda"
ELSE
   PRINT "Nepravda"
END IF

Тестовое решение:
? 4, -7.2, 0, -6
Pravda