program systeme
  implicit none
  real u1,u2
  real v1,v2
  real w1,w2
  real delta, delta_x, delta_y
  real x,y

               ! Valorisation des coefficients.
  u1 = 2; u2 = 4
  v1 = 5; v2 = 11
  w1 = 7; w2 = 6

             ! Calcul du déterminant principal.
  delta = u1*v2 - u2*v1
  if ( delta == 0. ) then
    print *, "Le système n'a pas de solution unique."
    stop 4
  end if
               ! Calcul du déterminant en x.
  delta_x = w1*v2 - w2*v1
               ! Calcul du déterminant en y.
  delta_y = u1*w2 - u2*w1
                  ! calcul des solutions.
  x = delta_x/delta
  y = delta_y/delta
                 ! Impression des solutions.
  print *, "x = ", x, ", y = ", y
end program systeme