algoritmo "GERADOR DE DGITO VERIFICADOR DE CPF"//ESSE PROGRAMA
EM VISUALG MOSTRA//QUAL QUE DEVE SER OS DOIS ULTIMOS DIGITOS DE SEU
CPFvarD1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11 : INTEIROSOMA, SOMA1,
RESTO, RESTO1 : INTEIROinicioESCREVAL ("Digite 9 dgitos para o CPF,
um de cada vez, e aperte enter depois de cada nmero:") REPITA
LEIA(D1) SE D1>9 ENTAO ESCREVAL("Digite um nmero de cada vez!
Repita o 1 dgito") FIMSE ATE D19 ENTAO ESCREVAL("Digite um nmero de
cada vez! Repita o 1 dgito") FIMSE ATE D29 ENTAO ESCREVAL("Digite
um nmero de cada vez! Repita o 1 dgito") FIMSE ATE D39 ENTAO
ESCREVAL("Digite um nmero de cada vez! Repita o 1 dgito") FIMSE ATE
D49 ENTAO ESCREVAL("Digite um nmero de cada vez! Repita o 1 dgito")
FIMSE ATE D59 ENTAO ESCREVAL("Digite um nmero de cada vez! Repita o
1 dgito") FIMSE ATE D69 ENTAO ESCREVAL("Digite um nmero de cada
vez! Repita o 1 dgito") FIMSE ATE D79 ENTAO ESCREVAL("Digite um
nmero de cada vez! Repita o 1 dgito") FIMSE ATE D89 ENTAO
ESCREVAL("Digite um nmero de cada vez! Repita o 1 dgito") FIMSE ATE
D9
