Algoritmo de Jokenpo no Visualg?

Algoritmo "semnome"

// Disciplina  : [Linguagem e Lógica de Programação]

// Professor  : Antonio Carlos Nicolodi 

// Descrição  : Aqui você descreve o que o programa faz! (função)

// Autor(a)  : Nome do(a) aluno(a)

// Data atual : 09/04/2022

Var

resposta, resposta2: inteiro

Inicio

escreval ("escreva 1 para pedra")

escreval ("escreva 2 para papel")

escreval ("escreva 3 para tesoura")

leia (resposta)

escreval ("escreva 1 para pedra")

escreval ("escreva 2 para papel")

escreval ("escreva 3 para tesoura")

leia (resposta2)

se (resposta=1) e (resposta2=1) entao

  escreva ("empate")

senao

   se (resposta=2) e (resposta2=2) entao

    escreva ("empate")

   senao

      se (resposta=3) e (resposta2=3) entao

        escreva ("empate")

      senao

          se (resposta=1) e (resposta2=2) entao

            escreva ("jogador 2 vence")

          senao

             se (resposta=1) e (resposta2=3) entao

              escreva ("jogador 1 vence")

             senao

               se (resposta=2) e (resposta2=1) entao

                 escreva ("jogador 1 vence")

               senao

                 se (resposta=2) e (resposta2=3) entao

                  escreva ("jogador 2 vence")

                 senao

                   se (resposta=3) e (resposta2=1) entao

                     escreva ("jogador 2 vence")

                   senao

                      se (resposta=3) e (resposta2=2) entao

                       escreva ("jogador 1 vence")

                      fimse

                   fimse

                 fimse

               fimse

             fimse

          fimse

       fimse

    fimse

fimse

Fimalgoritmo