Um sistema de equações lineares do tipo:

{ a x X + b x y = c
 d x X + e x y = f

{ x =  c x e  - b x f
  a x e - b x d

 y = a x f – c x d
 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 de que os denominadores das equações não podem ser zero.
---------------------------------------------------------------------------------------------------------
  algoritmo "Cálculo"
  var
     a,b,c,d,ee,f,x,y:numerico
  inicio
     escreval("Cálculo de uma expressão linear.")
     escreva("digite o valor de a ")
      leia(a)
     escreval("Digite o valor de b ")
     escreva("(diferente de zero) = ")
      leia(b)
     escreva("Digite o valor de c = ")
      leia(c)     escreva("Digite o valor de d = ")
      leia(d)
     escreval("Digite o valor de e ")
     escreva("(diferente de zero) = ")
      leia(d)
     escreva("Digite o valor de f = ")
     leia(f)
     x <- ((c*ee)-(b*f))/((a*ee)-(b*d))
     y <- ((a*f)-(c*d))/((a*ee)-(b*d))    
     escreval("Valor de x é, ",x:5:2," de y é, ",y:5:2)
     escreval("*** F I M ***")
 fimalgoritmo