Написать программу для решения линейной системы двух уравнений, если заданы коэффициенты системы.

{ решение уравнений вида }
{ |a1*x + b1*y = c1 }
{ |a2*x + b2*y = c2 }
{ ------------------------------------------------------------------------ }
var a1,a2,b1,b2,c1,c2,x,y,d,dx,dy:real;
begin
 {введите ваши коэффициенты уравнения: a1,b1,c1,a2,b2,c2}
 a1:=1;b1:=2;c1:=3;
 a2:=3;b2:=5;c2:=8;
 d := (a1*b2-a2*b1);
 dx := (c1*b2-c2*b1);
 dy := (a1*c2-a2*c1);
 if ( d=0 ) and ( (dx=0) or (dy=0) ) then
 writeln('бесконечное множество решений')
 else if ( d<>0 ) and ( (dx=0) or (dy=0) ) then
 writeln('нет решений')
 else begin
 x:=dx/d; y:=dy/d;
 writeln('x = ', x:4:2); writeln('y = ', y:4:2);
 end;
end.

---

---