Составить программу для вычисления функции z = x1+x1*y1+y1 /x1+y1, где x1 — больший корень квадратного уравнения X^2 — 4*x — 1 = 0; y1 — больший корень квадратного уравнения 2y^2 + y — 1 = 0; Корень уравнения вычислить используя функцию — QBasic(Бейсик)

CLS
a = 1
b = -4
c = -1
d1 = b ^ 2 - 4 * a * c
x2 = (4 + SQR(d1)) / 2
x3 = (4 - SQR(d1)) / 2
IF x2 > x3 THEN x1 = x2 ELSE x1 = x3
e = 2
f = 1
g = -1
d2 = f ^ 2 - 4 * e * g
y2 = (-1 + SQR(d2)) / 2 * e
y3 = (-1 - SQR(d2)) / 2 * e
IF y2 > y3 THEN y1 = y2 ELSE y1 = y3
z = x1 + (x1 * y1) + (y1 / x1) + y1
PRINT z