calculando area retangulo

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "semnome"
// Função : Calculando a area do retangulo
// Autor : Davi
// Data : 28/02/2018
// Seção de Declarações
var
x,y,produto : real
inicio
// escreval
escreval ("digite o valor da base retangulo:")
leia (x)
escreval ("digite o valor da altura retangulo:")
leia (y)
produto:=x*y
se x=y entao
escreval (" A figura geometrica não é um retangulo repetir procedimento")
repita
escreval ("digite o valor da base retangulo:")
leia (x)
escreval ("digite o valor da altura retangulo:")
leia (y)
produto:=x*y
se x=y entao
escreval (" A figura geometrica não é um retangulo repetir procedimento")
fimrepita
escreval ("O resultado da área é:", produto)
 
fimse
//leia (
fimalgoritmo