How can I compare values in this calculator algorithm

The purpose of this algorithm is to be a small game of calculus, where it compares the result of the operation informed by the user with the correct value of the algorithm and thus to say whether or not the user has hit the result of the operation. 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