algoritmo "semnome"
// Função :
// Autor :
// Data : 28/5/2015
// Seção de Declarações
var
x,dv1,dv2,resto1,resto2:inteiro
cpf:caracter
soma1,soma2 : inteiro
num:vetor [1..11] de inteiro

inicio
// Seção de Comandos
escreva("Informe seu CPF :")
leia(cpf)

para x de 1 ate 11 faca
   num[x]<- Caracpnum( Copia(cpf, x, 1) )
fimpara
para x de 1 ate 9 faca
   soma1:= soma1 + (num[x] * (11 - x))
fimpara

resto1:= (soma1 % 11)

se (resto1 >= 2) entao
   dv1:= 11 - resto1
fimse

para x de 1 ate 10 faca
   soma2:= soma2 + (num[x] * (12 - x))
fimpara

resto2:= (soma2 % 11)

se (resto2 >= 2) entao
   dv2:= 11 - resto2
fimse

se (dv1=num[10]) e (dv2=num[11]) entao
   escreva(" O CPF:",cpf, " é VALIDO")
senao
   escreva(" O CPF:",cpf ,"  não é VALIDO")
fimse


fimalgoritmo