Algoritimo no portugol

Desenvolvendo algoritimo no Portugol: 1) Escreva um algoritmo que armazene o valor 10 em uma variável A e o valor 20 em uma variável B. A seguir (utilizando apenas atribuições entre variáveis) troque os seus conteúdos fazendo com que o valor que está em A passe para B e vice-versa. Ao final, escrever os valores que ficaram armazenados nas variáveis.

algoritmo "TROCA DE VALORES"
// Função : TROCA DE VALORES DAS VAREAVEL a E b;
// Autor : JOEL RICARDO(JOEL MASTER)
// Data : 25/05/2013
// Seção de Declarações var a, b, c:inteiro // Declaração de vareave... OBS; elas são de tipo inteiro.
// C -> é a variavel auxiliar que vai receber o valor de A e depois joga p/ variavel B, com A recebendo o valor de B. inicio // Seção de Comandos
// troca de valores entre variaveis. a <- 10 b <- 20 c <- 10 c <- a a <- b b <- c
// imprimindo na tela o resutado. escreval("O valor de A é -->" , a) escreval("O valor de B é -->",b ) fimalgoritmo 2) Escreva um algoritmo para ler as dimensões de um retângulo (base e altura), calcular e escrever a área do retângulo. algoritmo "CALCULAR AREA DO RETANGULO"
// Função : CALCULADO A AREA DO RETANGULO.
// Autor :JOEL RICARDO(JOEL MASTER).
// Data : 25/05/2013
// Seção de Declarações var B, H, A:inteiro // DECLARAÇÃO DE VARIAVEIS; B-> BASE; H -> ALTURA & A -> AREA DO RETANGULO. inicio // Seção de Comandos escreval("Digite a base do retangulo: ") escreval(" ") escreva("--->---> ") leia (B) escreval(" ") escreval("Digite a altura do retangulo: ") escreval(" ") escreva("--->--->") leia (H) escreval(" ")
A<-(B*H)
escreval("As dimenções do retangulo é -->> ",A)