CPF portugol

algoritmo "CPF"

var
numero :vetor[1..11] de inteiro
soma,i : inteiro
CPF : caractere
resto1, resto2 : real
inicio
escreval("Digite CPF(só os números)")
leia(CPF)

para i de 1 ate 11 faca
   numero[i] <- Caracpnum(Copia(CPF,i, 1))
fimpara

para i de 1 ate 9 faca
   soma <- soma + (numero[i] * (11 - i))
fimpara

resto1 <- (soma % 11)

se (resto1 > 1) entao
   resto1 <- 11 - (resto1)
senao
   resto1 <- 0
fimse

soma <- 0

para i de 1 ate 10 faca
   soma <- soma + (numero[i] * (12 - i))
fimpara

resto2 <- (soma % 11)

se (resto2 > 1 ) entao
   resto2 <- 11 - (resto2)
senao
   resto2 <- 0
fimse

se cpf = "00000000000" entao
   escreval("CPF INVALIDO")
senao
   se ((resto1 = numero[10]) e (resto2 = numero[11])) entao
      escreval("CPF valido : ",CPF)
   senao
      escreval("CPF invalido : ",CPF)
   fimse
fimse
fimalgoritmo