How can I compare values in this calculator algorithm

The purpose of this algorithm is to be a small calculation game, where it compares the result of the operation reported by the user with the correct value of the same and so say whether the user has correct the result of the operation or not. I'm testing with the sum operation, for now.

algoritmo "Jogo Calculadora"
// Data : 16/1/2017
// Seção de Declarações
var
num1, num2, opcao, resultado, cont, b: inteiro
inicio
// Seção de Comandos
cont <- 0
escreva ("Digite o 1º número (de 1 a 10): ")
leia (num1)
escreva ("Qual operação deseja? ")
escreval ("[1] - Somar")
escreval ("[2] - Subtrair")
escreval ("[3] - Multiplicar")
escreval ("[4] - Dividir")
escreval ("[5] - Sair")
leia (opcao)
escreval ("Digite agora o 2º número (de 1 a 10): ")
leia (num2)
escreva ("Qual o resultado? ")
leia (resultado)

escolha opcao
caso 1
   se (num1 > 0) entao
      se (num1 <= 10) entao
         enquanto (cont <= 10 ) faca
            b <- num1 + cont
            escreval (b)
            cont <- cont + 1
            se (cont == resultado) entao
               escreval ("Parabéns você acertou!")
            seNao
               escreval ("Você errou!")
            fimEnquanto

         seNao
            escreval ("Valor inválido!")
         fimSe
      seNao
         escreval ("Valor inválido!")
      fimSe
   caso 2
   caso 3
   caso 4
   caso 5
   fimEscolha
fimalgoritmo