CLS : INPUT "a? :", a: INPUT "b? :", b
INPUT "c? :", c: INPUT "d? :", d
IF a < 1 OR b < 1 OR c < 1 OR d < 1 GOTO No
IF a > 6 OR b > 6 OR c > 6 OR d > 6 GOTO No
PRINT "Da": END
No: PRINT "Net"
Тестирование выполнено в программе QB64 ( Скачать )