Algoritmo – Excesso de peso

Algoritmo baseado no regulamento de pesca calcula o excesso de peso dos peixes.

algoritmo "Excesso de peso"
// Função : Calcula o excesso de peso dos peixes
// Autor : Alexandre Ernesto
// Data : 03/12/2011
// Seção de Declarações  
var
 P, EX, M : REAL
inicio
escreva("DIGITE O PESO --> ")
leia(P)
 SE P > 50 ENTAO
 EX <- (P - 50)
 M <- EX * 4.00
escreval("PEIXE FORA DOS PADRÕES DO REGULAMENTO DO ESTADO DE SÃO PAULO!")
 escreval("EXECESSO: ", EX, " MULTA DE: ", M, " REAIS")
 SENAO
 escreval("PEIXE DENTRO DOS PADRÕES DO REGULAMENTO DO ESTADO DE SÃO PAULO!")
 FIMSE
fimalgoritmo