Решение систем алгебраических уравнений - QBasic

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

Помогите решить задачку, пример прилагается......А вот моё задание:

Решение задачи: «Решение систем алгебраических уравнений»

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

                            10   INPUT "BBЕDИTЕ KОЭФФИЦИЕHTЫ ПЕРВОГО УРАВНЕНИЯ"; a1, b1, c1, d1
20   INPUT "BBЕДИTЕ КОЭФФИЦИЕНТЫ ВТОРОГО УРАВНЕНИЯ"; a2, b2, c2, d2
30   INPUT "BBЕДИТЕ КОЭФФИЦИЕНТЫ ТРЕТЬЕГО УРАВНЕНИЯ"; a3, b3, c3, d3
40   d = a1 * b2 * c3 + b1 * c2 * a3 + a2 * b3 * c1 - a3 * b2 * c1 - b3 * c2 * a1 - a2 * b1 * c3
50   IF d = 0 GOTO 90
60 PRINT "x= "; (d1 * b2 * c3 + b1 * c2 * d3 + d2 * b3 * c1 - d3 * b2 * c1 - b3 * c2 * d1 - d2 * b1 * c3) / d
70 PRINT "y= "; (a1 * d2 * c3 + d1 * c2 * a3 + a2 * d3 * c1 - a3 * d2 * c1 - d3 * c2 * a1 - a2 * d1 * c3) / d
80 PRINT "z= "; (a1 * b2 * d3 + b1 * d2 * a3 + a2 * b3 * d1 - a3 * b2 * d1 - b3 * d2 * a1 - a2 * b1 * d3) / d
90 END
                        