Par ou impar com repetição 2

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "Procedimento para ou impar"
// Função :
// Autor :
// Data : 01/07/2015
// Seção de Declarações 
var
 N: inteiro
 Procedimento ParOuImpar(V: inteiro)
 Inicio
 
 se (V%2=0) entao
 escreval("O número ",V," é PAR")
 senao
 escreval("O número ",V," é IMPAR")
 fimse
 FimProcedimento
inicio
// Seção de Comandos 
 escreva("Digite o número: ")
 leia (N)
 ParOuImpar(N)
fimalgoritmo