Установить является ли четырехугольник с длинами сторон a,b,c,d ромбом — QBasic(Бейсик)

INPUT a
INPUT b
INPUT c
INPUT d
IF a=b AND b=c AND c=d THEN PRINT "da" ELSE PRINT "net"