$$\begin{array}{c} \color{#00FFE0}{C} \color{#14EAE3}{a} \color{#27D5E5}{t} \color{#3BBFE8}{t} \color{#8371F1}{C} \color{#9D55F5}{o} \color{#B739F8}{d}\color{#D11CFC}{e}\color{#EB00FF}{r} \end{array}$$  

Program GiaiHePhuongTrinhTuyenTinh;
uses crt;
Var
  a, b, c, d, m, n, x, y, det: Real;

Begin
clrscr;
  Write('Nhap a: '); Readln(a);
  Write('Nhap b: '); Readln(b);
  Write('Nhap c: '); Readln(c);
  Write('Nhap d: '); Readln(d);
  Write('Nhap m: '); Readln(m);
  Write('Nhap n: '); Readln(n);

  det := a * d - b * c;

  If det = 0 Then
  Begin
    If (a * n = c * m) and (b * n = d * m) Then
      Writeln('He phuong trinh co vo so nghiem.')
    Else
      Writeln('He phuong trinh vo nghiem.')
  End
  Else
  Begin
    x := (m * d - n * b) / det;
    y := (a * n - c * m) / det;
    Writeln('Nghiem cua he phuong trinh la:');
    Writeln('x = ', x:0:2);
    Writeln('y = ', y:0:2);
  End;

  Readln;
End.