Exemplo 18

=====================================================
Exemplo 18:

Escreva um algoritmo para ler as dimensões de um retângulo (base e altura), calcular e escrever a

área do retângulo.

=====================================================

// Seção de Declarações 

var

altura,base,area:real

inicio

// Seção de Comandos 

escreval("Informe a altura do retangulo:")

leia(altura)

escreval("Informe a base do retangulo:")

leia(base)

area<-(base*altura)/2

escreval("A area do retangulo é: ",area)

 fimalgoritmo

=====================================================