Henrique

//Ler um número inteiro e mostre uma mensagem indicativa
//de que este número é par ou ímpar e se este é positivo ou negativo.

var
   num,resto : inteiro
inicio
   escreval("Digite um número")
   leia(num)
   resto <- num mod 2
   se ( resto = 0) entao
      escreva("O numero é par e")
   senao
      escreva("O numero é ímpar e")
   fimse
   se ( num >= 0) entao
      escreval(" positivo.")
   senao
      escreval(" negativo.")
   fimse

fimalgoritmo