"Troca de variáveis sem auxiliar" - VisualG

algoritmo "Troca de variáveis sem auxiliar"
// Função : Troca de valores entre duas variáveis sem um auxiliar.
// Autor : Carlos Eduardo Saraiva
// Data : 04/08/2011
// Seção de Declarações
var

a: inteiro
b: inteiro

inicio
// Seção de Comandos

escreval("Digite o valor da variável 'a':")
leia (a)
escreval("Digite o valor da variável 'b':")
leia (b)

escreval("A variável 'a' é: ", a , " a variável 'b' é: ",b)

//a idéia é simples, primeiro eu somo as duas variáeis e armazeno na primeira.
//depois apenas subtraio para conseguir a troca. É quase mágico...

a <- a + b
b <- a - b
a <- a - b

escreval("Com a troca, 'a' é: ", a , " a variável 'b' é: ",b)
fimalgoritmo