areaRetangulo

algoritmo "calculo retangulo"

var
altura, base, area, perimetro:real
inicio
escreval ("Informe a altura do retâgulo:")
leia (altura)
escreval ("Informe o valor da base do retangulo")
leia (base)
area <- (altura * base)
perimetro <- ((2*altura) + (2*base))
escreval ("Area:",area)
escreval ("Perimetro:",perimetro)
fimalgoritmo