3.6)Um sistema de equações lineares do tipo: a x X +b x Y = C , d x X + e x Y= f. Pode ser resolvido da seguinte forma: x= c x e -b x f / a x e - b x d. Escreva um algoritmo que leia os coeficientes a,b,c,d,e,f e calcule e escreva os valores de x e y. Lembre-se que os denominadores das equações não podem ser zero.

algoritmo "calcular x e y"
var
  a,b,c,d,f,x,y,n,z :real
inicio
  escreval ("calcular valor de x , y")
  escreva (" informe valor de a ")
  leia (a)
  escreva (" informe valor de b")
  leia (b)
  escreva (" informe valor de c ")
  leia (c)
  escreva (" informe valor de d")
  leia (d)
  escreva (" informe valor de f")
  leia (f)
  escreva (" informe valor de e")
  leia (z)
  n <- (a*z)-(b*d)
 
  se (n = 0)entao
  escreva ( "Nao existe soluçao pertencente aos numeros reais")
  senao
  x <- ((c *z)-(b*f))/n
  escreva ("X=")
  escreval (x)
 
  y <- ((a*f)-(c*d))/n
  escreva ("Y=")
 escreva (y)
  fimse

  fimalgoritmo