[VisuAlg2] Calculadora Simples

Criei agora aqui uma calculadora simples com poucas funções para os iniciantes entenderem um pouco mais de operadores e estruturas condicionais:

algoritmo "Calculadora"
// Função : Calculadora Simples
// Autor : Warcraft
// Data : 23/6/2009
var
n1: real
n2: real
res: inteiro
i: inteiro

inicio
escreval ("Escreva o primeiro número:")
leia (n1)
escreval ("Escreva o segundo número:")
leia (n2)
escreval ("Funções:")
escreval ("1 - Calcular a soma dos 2")
escreval ("2 - Calcular a diferença entre os 2")
escreval ("3 - Calcular o produto dos 2")
escreval ("4 - Calcular o quadrado de cada um deles")
escreval ("5 - Calcular a raíz quadrada de cada um deles")
escreval ("Escreva o número da função que desejar:")
leia (res)
Se res = 1 Entao
escreva ("Soma dos 2: " , n1+n2)
fimse
Se res = 2 Entao
escreva ("Diferença dos 2: " , n1-n2)
fimse
Se res = 3 Entao
escreva ("Produto dos 2: " , n1*n2)
fimse
Se res = 4 Entao
escreva ("Quadrado do 1º: ", n1n1 , " Quadrado do 2º: ", n2n2)
fimse
Se res = 5 Entao
escreva ("Raíz do 1º: ", RAIZQ(N1) , " Raíz do 2º: ", RAIZQ(N2))
fimse

fimalgoritmo