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

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.