Aula 15 - VisualG - Areal retangulo

algoritmo "aula15"

var base,altura:inteiro
    area:real

inicio
      escreva("Digite a base do retangulo...: ")
      leia(base)
      escreva("Digite a altura do retangulo.: ")
      leia(altura)
      area:=(base*altura)/2
      escreva("A área do retangulo é ",area)
fimalgoritmo