Ajuda com algoritmo de pseudocodigo

[Nithium]

Fala pessoal! Estou fazendo um algoritmo para o trabalho da faculdade, mas estou com dificuldades em relação a parte logica. Alguém poderia ajudar?

Var

a, b, c, opA, opB, opC : inteiro
vezA, vezB, vezC : logico
Inicio

enquanto (vezA = verdadeiro e vezB = verdadeiro e vezC = verdadeiro) faca

  se (vezA = verdadeiro) entao
   escreva("Ana, digite 0 ou 1: ")
    leia(a)
  fimse
 
  se (vezB = verdadeiro) entao
   escreva("Bob, digite 0 ou 1: ")
    leia(b)
  fimse
 
  se (vezC = verdadeiro) entao
   escreva("Carlos, digite 0 ou 1: ")
    leia(c)
  fimse

  se (a = b e a = c e b = a e b = c e c = a e c = b) entao
   escreva ("  ---------------")
   escreva ("\n----- * -------")
   escreva ("\n---------------")
  fimse
 
  se (a <> b e a <>  c) entao
   escreva("Ana está fora do jogo!")
   vezA <- falso
  fimse
 
  se (b <> a e b <>  c) entao
   escreva("Bob está fora do jogo!")
   vezB <- falso
  fimse
 
  se (c <> a e c <>  b) entao
   escreva("Carlos está fora do jogo!")
   vezC <- falso
  fimse
 
fimenquanto

se (vezA = verdadeiro e vezB = verdadeiro) entao
  escreva("Ana, escolha\n 1 - PAR || 2 - IMPAR: ")
   leia(opA)
    se(opA = 1)entao
     opB <- 2
    senao
     opB <- 1
    fimse

    escreva("Ana, digite qualquer valor inteiro: ")
     leia(a)
    escreva("Bob, digite qualquer valor inteiro: ")
     leia(b)
    
     se (a mod b = 0) entao
      se (opA = 1) entao
       escreva("O resultado é PAR! Ana é a vencedora!")
      senao
       escreva("O resultado é IMPAR! Bob é o vencedor!")
     fimse
    fimse
fimse
se (vezA = verdadeiro e vezC = verdadeiro) entao
  escreva("Ana, escolha\n 1 - PAR || 2 - IMPAR: ")
   leia(opA)
    se(opA = 1)entao
     opC <- 2
    senao
     opC <- 1
    fimse

    escreva("Ana, digite qualquer valor inteiro: ")
     leia(a)
    escreva("Carlos, digite qualquer valor inteiro: ")
     leia(c)

     se (a mod c = 0) entao
      se (opA = 1) entao
       escreva("O resultado é PAR! Ana é a vencedora!")
      senao
       escreva("O resultado é IMPAR! Carelos é o vencedor!")
     fimse
    fimse
fimse
se (vezB = verdadeiro e vezC = verdadeiro) entao
  escreva("Bob, escolha\n 1 - PAR || 2 - IMPAR: ")
   leia(opB)
    se(opB = 1)entao
     opC <- 2
    senao
     opC <- 1
    fimse

    escreva("Ana, digite qualquer valor inteiro: ")
     leia(b)
    escreva("Carlos, digite qualquer valor inteiro: ")
     leia(c)

     se (b mod c = 0) entao
      se (opB = 1) entao
       escreva("O resultado é PAR! Bob é o vencedor!")
      senao
       escreva("O resultado é IMPAR! Carelos é o vencedor!")
     fimse
    fimse
fimse
 

Fimalgoritmo

Desde já agradeço.

Edit: não havia copiado o codigo completo

 

[Munchen5]

 

[btk]

e qual problema?

 

[JEDI]

Não sei pra que é esse código e nem sei o problema, mas da pra ver que tens muito problema com a lógica.

Tenta colocar o que tas querendo fazer e qual a tua duvida.

 

[Nithium]

Opa! Fala pessoal! Ontem mesmo consegui resolver, nada que uma caneca de café e boa musica não resolva

O algoritmo era para fazer um jogo da brincadeira zerinho ou um, eu não estava conseguindo pq estava declarando as variaveis logicas 2x na area de variaveis, e não apos o inicio ( declarando como verdadeiro) mas enfim, agradeço pela disposição em me ajudarem.