Найти решение системы линейных уравнений вида A1*x + B1*y = C1, A2*x + B2*y = C2

Заданной своими коэффициентами A1, B1, C1, A2, B2, C2, если известно, что данная система имеет единственное решение.

Воспользоваться формулами
x = (C1*B2 - C2*B1)/D, y = (A1*C2 - A2*C1)/D, где D = A1*B2 - A2*B1

Program Begin40;
Var
A1, B1, C1, A2, B2, C2:Real;
Begin
WriteLn('Введите A1,B1 и C1');
ReadLn(A1,B1,C1);
WriteLn('Введите A2,B2 и C2');
ReadLn(A2,B2,C2);
D = A1*B2 - A2*B1;
WriteLn('x = ',(C1*B2 - C2*B1)/D);
WriteLn('y = ',(A1*C2 - A2*C1)/D);
ReadLn;
End.

автор: Sklyarov Sergej a.k.a. S9