O meu Visualg não esta reconhecendo o codigo enquanto

algoritmo "semnome"

var

nome:caractere

c,n:inteiro

inicio

escreva("Qual é o seu nome ? ")

leia(nome)

Escreval("Prazer ",nome,".")

escreval("Escolha um numero")

leia(n)

c <- 0

Enquanto (c<=n) faca

c <- c + 1

fimEnquanto

fimalgoritmo