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

var
A1, B1, C1, A2, B2, C2, D, x, y: real;

begin
writeln('Введите коэффициенты A1, B1, C1:');
readln(A1, B1, C1);
writeln('Введите коэффициенты A2, B2, C2:');
readln(A2, B2, C2);
D := A1 * B2 - A2 * B1; { <== Вычисляем определитель системы }
{ Вычисляем x и y: }
x := (C1 * B2 - C2 * B1) / D;
y := (A1 * C2 - A2 * C1) / D;
writeln;
writeln('Результат:');
writeln(' x = ', x:0:3);
writeln(' y = ', y:0:3);
readln
end.