Exercicio 6 capitulo 3

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 "Exercicio 3.6"
// Função :
// Autor : Gustavo Quirino
// Data : 19/9/2010
// Seção de Declarações 
var
   vA,vB,vC,vD,vE,vF,x,y,denominador:real
inicio
   escreval("Informe o valor de 'a':")
   leia(vA)
   
   escreval("Informe o valor de 'b':")
   leia(vB)
   
   escreval("Informe o valor de 'c':")
   leia(vC)
   
   escreval("Informe o valor de 'd':")
   leia(vD)
   
   escreval("Informe o valor de 'e':")
   leia(vE)
   
   escreval("Informe o valor de 'f':")
   leia(vF)

      denominar<- ((vA*vE)-(vB*vD))
   se (denominador=0) entao
      escreva("O valor de 'a', 'e', 'b' e 'd' não podem ser igual a 0(zero)")
   senao
      x<- ((vC*vE)-(vB*vF))/denominador
      y<- ((vA*vF)-(vC*vD))/denominador
      
      escreval("X = ",x)
      escreva("Y = ",y)
   fimse
fimalgoritmo