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

Формулировка задачи:

Приветик друзья!!! Я опять напоролась на нЕчто!!! Это ппц, помоему это вообще не возможно решить на QBasic((( Хотя возможно это только женский взгляд... Помогите пожалуйста, может есть такие для кого эта задача ни капли не возмутит. Очень надеюсь! Даны вещественные числа a, b, c, d, e, f. Переменной S присвоить значение 1, если оба уравнения: ax^2 + bx+ c=0 и dx^2+ ex+ f=0 имеют вещественные корни, и при этом все корни первого уравнения лежат между корнями второго уравнения. В противном случае переменной S присвоить значение 0. (Для нахождения корней квадратного уравнения использовать функцию).

блин...неужели это в правду нельзя решить на QBasic((

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

Листинг программы

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

Объяснение кода листинга программы

В этом коде:

Декурируется подпрограмма с именем Test, которая принимает один аргумент типа массив (A%).
Определяется массив B% размером 10x10.
Задается значение элемента B%(4, 4) равным 10.
Вызывается подпрограмма Test с аргументом B%.
Печатается значение элемента B%(3, 3).
Внутри подпрограммы Test печатается значение элемента A%(4, 4).
Внутри подпрограммы Test значение элемента A%(3, 3) присваивается 8.
Завершается выполнение подпрограммы Test. Также в коде есть несколько ошибок:
В строке с командой DECLARE SUB необходимо указать тип аргумента в скобках, например DECLARE SUB Test (A%(10)).
В строке с командой DIM B%(10, 10) необходимо указать размерность массива в скобках, например DIM B%(10, 10).
В строке с командой PRINT B%(3, 3) необходимо указать адрес элемента массива в скобках, например PRINT B%(3, 3).