Alguem poderia me dizer o que tá errado com meu código? ele é bem simples, mas não to conseguindo indentificar o erro :c
comando da questao: Construir um procedimento que verifique se um dado número é par. (criar o algoritmo)
meu codigo:
algoritmo "ProcedimentoPar"
// Função :
// Autor :
// Data : 06/10/2013
// Seção de Declarações
var
num: inteiro
procedimento par(num:inteiro)
inicio
se ((num mod 2)=0) entao
escreval ("Este número é par")
senao
escreva ("Este número é impar")
fimse
fimprocedimento
inicio
escreva ("Informe um numero ")
leia (num)
par(num)
fimalgoritmo
Início 
Dom Out 06, 2013 4:53 pm