Algoritmo trocar valor, teste, para ajudar uma amiga.

algo

algoritmo "TOCAR VALOR"

var
x,a,b,c,d :real

inicio
// Seção de Comandos
escreva("Digite o valor(numérico) da variável A: ")
leia(a)
escreval("")
escreva("Digite o valor(numérico) da variável B: ")
leia(b)
escreval("")
escreva("Digite o valor(numérico) da variável C: ")
leia(c)
escreval("")
escreva("Digite o valor(numérico) da variável D: ")
leia(d)
escreval("")

// ******** A = B
x <- a
a <- b
b <- x
escreval("")
Escreva("Valores de A = ",a, " Valor de B = ",b)

// ********  B = D
x <- b
b <- d
d <- x
escreval("")
escreval("")
Escreva("Valores de B = ",b, " Valor de D = ",d)

// ********  C = A
x <- c
c <- a
a <- x
escreval("")
escreval("")
Escreva("Valores de C = ",c, " Valor de A = ",a)

// ********   D = C
x <- d
d <- c
c <- x
escreval("")
escreval("")
Escreva("Valores de D = ",d," Valor de C = ",c)

//limpatela

escreval("")
escreval("")
escreval("===========================")
escreval("O novo valor de A é: ",a)
escreval("O novo valor de B é: ",b)
escreval("O novo valor de C é: ",c)
escreval("O novo valor de D é: ",d)
escreva("===========================")
fimalgoritmo