Написать программу для решения системы линейных уравнений. (Программу надо написать на...

uses crt;

var

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

begin

clrscr;

writeln('enter A1:');

writeln('enter A2:');

writeln('enter B1:');

writeln('enter B2:');

writeln('enter C1:');

writeln('enter C2:');

read(A1,A2,B1,B2,C1,C2);

if (A2 * B1 - A1 * B2) = 0 then

writeln('Программа не имеет решений')

else

begin

x:= (B1*C2-B2*C1) / (A2*B1-A1*B2);

y:= (A2 * C1 - A1 * C2) / (A2 * B1 - A1 * B2);

end;

writeln('x=', x:10:2);

writeln('y=', y:10:2);

end.