RESOLVIDO problema comando "enquanto" visualg

[Slafiq]

Bom dia, estou com o seguinte problema: 

Estou tentando executar o comando "enquanto" para fazer um looping até o valor que eu quero que o usuário digite, no caso 1001 e 1002, mas sempre que eu executo e digito esses mesmos valores volta para o comando "enquanto" e fica nesse looping infinito. como eu faço para resolver?

 

Segue o código(está incompleto, estou tentando resolver essa parte do código):

 

algoritmo "faculdade"
// Função :
// Autor :
// Data : 10/03/2017
// Seção de Declarações 
 var
    R, W, H: Real
    
inicio
// Seção de Comandos
   Escreval("INSIRA O CÓDIGO DE CONSUMO:")
   Escreval("CÓDIGO----------CONSUMO")
   Escreval("  1001----------PERSONALIZADO")
   Escreval("  1002----------MEDIA ANUAL")
    Leia(R)
    
Enquanto (R <> 1001) ou (R <> 1002) faca
   Escreval("CÓDIGO INVALIDO, INSIRA UM CÓDIGO VALIDO")
    Leia(R)
   R <- R + 0
Fimenquanto
Escolha R
 Caso 1001
   Escreval("VOCÊ ESCOLHEU O CONSUMO PERSONALIZADO")
   Escreval("")
   Escreval("POR FAVOR, INSIRA A POTÊNCIA UTILIZADA POR DIA(KW)")
    Leia(W)
   Escreval("")
   
   Escreval("INSIRA A QUANTIDADE ")
 Caso 1002
   Escreval("VOCÊ ESCOLHEU O CONSUMO DE MÉDIA ANUAL")
   
fimescolha
fimalgoritmo

 

[isrnick]

Você quer que o ciclo/loop continue enquanto o valor for diferente de 1001 E diferente de 1002, o problema é esse você usou OU mas deveria ser E.

[Slafiq]

12 minutos atrás, isrnick disse:

Você quer que o ciclo/loop continue enquanto o valor for diferente de 1001 E diferente de 1002, o problema é esse você usou OU mas deveria ser E.

Cara!!! você me salvou!!! kkkkk estava quebrando a cabeça por uma bobeira dessa!!! D= brigado mesmo!!! resolveu o problema!