Area de um 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 : 04/03/2018
// estruturas de repetição
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")
limpatela
enquanto x=y faca
escreval (" A figura geometrica não é um retangulo repetir procedimento")
escreval ("digite o valor da base retangulo:")
leia (x)
escreval ("digite o valor da altura retangulo:")
leia (y)
produto:=x*y
fimenquanto
escreval ("O resultado da área é:", produto)
 
fimse
//leia (
fimalgoritmo