Algoritimo da calculadora em visual-G

algoritmo " Calculadora "
// Função : calcular valores
// Autor : qiinformatica
// Data : 16/2/2012
// Seção de Declarações
var
a,b: inteiro
resul: real
esco,c,sim: caractere
inicio
// Seção de Comandos
escreva("                          *** CALCULADORA*** ")
escreval
escreval
escreval("Digite o primeiro valor")
leia(a)
escreval("Digite o segundo valor")
leia(b)
escreval
escreval("Escolha qual você vai querer: ")
escreval("Calculadora de + : 1")
escreval("Calculadora de - : 2")
escreval("Calculadora de * : 3")
escreval("Calculadora de / : 4")
leia(esco)
escolha esco
caso "1"
resul<-a+b
escreval(" O resultado foi: ", resul)
caso "2"
resul<-a-b
escreval(" O resultado foi: ", resul)
caso "3"
resul<-a*b
escreval(" O resultado foi: ", resul)
caso "4"
resul<-a/b
escreval(" O resultado foi: ", resul)
outrocaso
escreval("não consta na lista")
fimescolha
escreval
escreval("novo calculo...")
leia(sim)
se(sim)="sim" entao
limpatela

repita

escreva("                          *** CALCULADORA*** ")
escreval
escreval
escreval("Digite o primeiro valor")
leia(a)
escreval("Digite o segundo valor")
leia(b)
escreval
escreval("Escolha qual você vai querer: ")
escreval("Calculadora de + : 1")
escreval("Calculadora de - : 2")
escreval("Calculadora de * : 3")
escreval("Calculadora de / : 4")
leia(esco)
escolha esco
caso "1"
resul<-a+b
escreval(" O resultado foi: ", resul)
caso "2"
resul<-a-b
escreval(" O resultado foi: ", resul)
caso "3"
resul<-a*b
escreval(" O resultado foi: ", resul)
caso "4"
resul<-a/b
escreval(" O resultado foi: ", resul)
outrocaso
escreval("não consta na lista")
fimescolha
escreval
escreval("novo calculo...")
leia(sim)
limpatela
ate sim="nao"
fimse
fimalgoritmo

Link para download do visual - G
http://www.4shared.com/rar/9XaiFLzO/visual_G.html