Algoritmo visualG

--UM ALGORITMO QUE LEIA UM NUMERO E IMPRIMA SE FOR PAR OU IMPAR--
estou tentando dessa maneira, mas nao esta funcionando, por favor me ajudem.

var
x:inteiro
w:real
inicio
// Seção de Comandos
leia (w)
x<-w%2
se (x*2<-w) entao
escreva (par)
se (x*2<>w) entao
escreva (impar)
fimse

MOD é um operador matemático q retorna o resto da divisão. E ele é um operador de numeros inteiros, ou seja, a variavel numero tem q ser declarada com inteiro.

Ex: 827 mod 2 = 1, 160 mod 2 = 0.

Código:


var
numero: inteiro

inicio

escreva ("Digite um numero: ")

leia (numero)

se (numero mod 2 = 0) entao

escreva (numero," É par")

senao

escreva (numero," É impar")

fimse

fimalgoritomo