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

1
2
3
4
5
INPUT a
INPUT b
INPUT c
INPUT d
IF a=b AND b=c AND c=d THEN PRINT "da" ELSE PRINT "net"