rem Programma resheniya kv. uravnerniy i neravenstv
CLS
PRINT "Please enter your choise"
PRINT "1 - Uravnenie"
PRINT "2 - Neravenstvo"
INPUT "My choise ", mychoise
INPUT "Please Enter A ", A
INPUT "Please Enter B ", B
INPUT "Please Enter C ", C
D = B^2 - 4*A*C
SELECT CASE mychoise
	CASE 1 : 
		IF(A<>0) THEN
			IF(D > 0) THEN
				PRINT "Dva kornya"
				x1 = (-B+sqr(D))/(2*A)
				x2 = (-B-sqr(D))/(2*A)
				PRINT "X1 = ", x1
				PRINT "X2 = ", x2
			ELSE
				IF(D = 0) THEN
					PRINT "Odin koren'"
					x1 = (-B)/(2*A)
					PRINT "X1 = ", x1
				ELSE
					PRINT "Korney Net"
				END IF
			END IF
		END IF
	CASE 2 :
		IF (D > 0) THEN
			x1 = (-B+sqr(D))/(2*A)
			x2 = (-B-sqr(D))/(2*A)
			PRINT "X1 = ", x1
			PRINT "X2 = ", x2

			IF (A > 0) THEN
				PRINT "X Prinadlegit (-beskone4nosyt';",x1,") & (",x2,";+beskone4nosyt')"
			ELSE
				PRINT "X Prinadlegit (",x1,";",x2,")"
			END IF
		ELSE
			IF (D = 0) THEN
				x1 = (-B)/(2*A)
				PRINT "X = ", x1

				IF (A > 0) THEN
					PRINT "X - Lyuboe 4islo krome ",x1
				ELSE
					PRINT "X = ",x1
				END IF
			ELSE
				IF (A > 0) THEN
					PRINT "X - Lyuboe 4islo"
				ELSE
					PRINT "Resheniy net"
				END IF
			END IF
		END IF
END SELECT
END