Area e perimetro retangulo

algoritmo "Area e perimetro do retângulo"

var
   area: real
   perimetro: real
   base: real
   altura: real
   LadoA, LadoB : Real
inicio
   Escreval ("Quantos centimetros possui o lado 1?")
   leia (LadoA)
   Escreval ("Quantos centimetros possui o lado 2?")
   leia (LadoB)
   perimetro <- (LadoA + LadoB)
   limpatela
   escreval ("O perimetro deste retangulo é", perimetro , " centimetros")

   Escreval ("Qual a base do retangulo?")
   leia (base)
   Escreval ("qual a altura do retangulo?")
   leia (altura)
   area <- (base * altura)
   limpatela
   escreval ("O perimetro deste retangulo é", perimetro , " centimetros")
   escreval ("A area deste retangulo é", area , " centimetros")
fimalgoritmo