Для нахождения корней квадратного уравнения использовать функцию

DECLARE FUNKTION prog#(a, b, c, d, e, f)
INPUT "vvedite a,b,c,d,e,f"; a, b, c, d, e, f
PRINT "s ="; prog#(a, b, c, d, e, f)
FUNCTION prog# (a, b, c, d, e, f)
d1 = b ^ 2 - 4 * a * c
d2 = e ^ 2 - 4 * d * f
IF d1 >= 0 AND d2 >= 0 THEN
    x1 = (-b + SQR(d1)) / 2 * a
    x2 = (-b - SQR(d1)) / 2 * a
    x3 = (-e + SQR(d2)) / 2 * d
    x4 = (-e - SQR(d2)) / 2 * d
    IF x3 > x4 THEN SWAP x3, x4
    IF x1 >= x3 AND x1 <= x4 AND x2 >= x3 AND x2 <= x4 THEN s = 1
END IF
prog# = s
END FUNCTION

DECLARE FUNKTION prog%(a())
DIM a(6)
FOR i = 1 TO 6
    PRINT "vvedite "; CHR$(ASC("a") + i - 1);
    INPUT a(i)
NEXT
s = prog%(a()): PRINT STRING$(80, 196); "s ="; s
FUNCTION prog% (a())
PRINT a(1); "* x ^ 2 +"; a(2); "* x +"; a(3)
d1 = a(2) ^ 2 - 4 * a(1) * a(3)
IF d1 >= 0 THEN
    x1 = (-a(2) + SQR(d1)) / (2 * a(1))
    x2 = (-a(2) - SQR(d1)) / (2 * a(1))
    PRINT "x1 ="; x1, "x2 ="; x2
ELSE
    PRINT "diskriminant menshe 0"
END IF
PRINT a(4); "* x ^ 2 +"; a(5); "* x +"; a(6)
d2 = a(5) ^ 2 - 4 * a(4) * a(6)
IF d2 >= 0 THEN
    x3 = (-a(5) + SQR(d2)) / (2 * a(4))
    x4 = (-a(5) - SQR(d2)) / (2 * a(4))
    PRINT "x3 ="; x3, "x4 ="; x4
ELSE
    PRINT "diskriminant menshe 0"
END IF
IF d1 >= 0 AND d2 >= 0 THEN
    IF x3 > x4 THEN SWAP x3, x4
    IF x1 >= x3 AND x1 <= x4 AND x2 >= x3 AND x2 <= x4 THEN prog% = 1
END IF
END FUNCTION

DECLARE SUB Test (A%())
DIM B%(10, 10)
 
B%(4, 4) = 10
 
CLS
Test B%()
 
PRINT B%(3, 3)
 
SUB Test (A%())
 PRINT A%(4, 4)
 A%(3, 3) = 8
END SUB