Турбо Паскаль.. 1) Даны действительные числа а1, b1, с1, a2, b2, c2. Выяснить, верно ли, что |a1b2 – a2b1|≥ 0,0001 и если верно, то найти решение систе- мы линейных уравнений a1x + b1y + c1 = 0 а2х + b2у + c2 = 0 Нужен текст программы. 2) program prim4(input, output); VAR a, b: INTEGER; procedure swap(VAR x: INTEGER; y: INTEGER); VAR a: INTEGER; BEGIN a := x; x := y; y := a END; BEGIN READ(a, ; swap(a, ; WRITELN(a, END. Здесь нужна трассировка. Пожалуйста, помогите!!!! нужно срочно!!