Algoritmo em Portugol feito Visualg - Par ou Impar de um número

Algoritmo em Portugol feito em Visualg que verifica se um número informado pelo usuário é Par ou Impar:
algoritmo "Par_Impar"

var
      num:inteiro
inicio
// Seção de Comandos
     escreva("Informe um numero: ")
     leia(num)
   
     se num mod 2 = 0 entao
        escreva("Par")
     senao
          escreva("Impar")
     fimse
fimalgoritmo

Trabalhos.:
E-mail: mvf5system@gmail.com
Blog: http://mvf5-system.blogspot.com.br/
Facebook: https://www.facebook.com/mvf5systems