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

INPUT A,B,C,D
IF A<0 AND B<0 AND C<0 AND D<0 THEN PRINT "NEPRAVDA" ELSE PRINT "PRAVDA"
END