uses crt;
var x1,x2,y1,y2,m,n: longint;
D, Dx, Dy, x, y: real;
begin
clrscr;
write('Nhap cac he so PT 1: '); readln(x1,x2,m);
write('Nhap cac he so PT 2: '); readln(y1,y2,n);
D:=a1*b2-a2*b1; Dx:=m*b2-n*b1; Dy:=a1*n-a2*m;
x:=Dx/D; y:=Dy/D;
writeln('He PT co nghiem la: x = ',x,', y = ',y);
readln;
end.