algoritmo em portugol 2

     Ler 2 números inteiros do teclado. Se o segundo for diferente de zero, calcular e imprimir o quociente do primeiro pelo segundo. Caso contrário, imprimir a mensagem: “DIVISÃO POR ZERO”.

algoritmo "semnome"
var
    x, y: inteiro
inicio
    x <- 0
    y <- 0
    escreva ("informe o valor de x")
    leia (x)
    escreva ("informe o valor de y")
    leia (y)
    se (y <0)e (y> 0) entao
      aux <- (x/y)
       escreva ("o quociente eh," aux)
         senao
            escreva (" divisivel por zero")
            fimse
fim