Peguei este algoritmo em um livro mas quando faço no visualg sempre dar erro onde está o problema:
Algoritmo "semnome"
//
//
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Nome do(a) aluno(a)
// Data atual : 09/05/2017
Var
mes:inteiro
Inicio
leia (mes)
caso mes
seja 1 faca
escreva("Janeiro")
seja 2 faca
escreva("Fevereiro")
seja 3 faca
escreva("Março")
seja 4 faca
escreva("Abril")
seja 5 faca
escreva("Maio")
seja 6 faca
escreva("Junho")
seja 7 faca
escreva("Julho")
seja 8 faca
escreva("Agosto")
seja 9 faca
escreva("Setembro")
seja 10 faca
escreva("Outubro")
seja 11 faca
escreva("Novembro")
seja 12 faca
escreva("Dezembro")
senao
escreva("Valor Invalido")
fim_caso
Fimalgoritmo