Algoritimo Visualg Não Roda-Estrutura SE Então

Ola

A estrutura se deste algoritimo esta dando erro,agradeço se alguem puder me ajudar.

// Função :6) Faça um algoritmo que o usuário informe dois números inteiros, que o segundo

//número divida o primeiro e que se o resto for par, o quociente for ímpar e o resultado

//for maior que 3, informe que ele venceu o desafio do algoritmo, e independente de

//vencer ou não mostre os resultados das operações.

// Autor :Emerson Reinecke

// Data : 03/08/2017

// Seção de Declarações

var

n1,n2:inteiro

resultado,quoc,resto:real

inicio

escreval("Digite um numero:")

leia(n1)

escreval("Digite um numero:")

leia(n2)

resultado<-(n1/n2)

resto<-(n1 mod n2)

quoc<-(n1 div n2)

se  (resto=0) e (resultado>3) e (quoc mod 2 = 0 ) entao

escreval("Voce Venceu o Desafio do Algoritmo!")

escreval("O Resultado da operação foi ",resultado,"")

escreval("O Quociente da operação foi ",quoc,"")

escreval("O Resto da operação foi ",resto,"")

senao

escreval("O Resultado da operação foi ",resultado,"")

escreval("O Quociente da operação foi ",quoc,"")

escreval("O Resto da operação foi ",resto,"")

fimse

fimalgoritmo