Algoritmo – Índice de poluição

Baseado no índice poluição de uma determinada secretaria de meio ambiente, foi elaborado um algoritmo para classificar as industrias em três grupos.

algoritmo "indice de poluição"
// Função : classificar as industrias em três grupos
// Autor : Alexandre Ernesto
// Data : 03/12/2011
// Seção de Declaraçõe
var
ip : real
inicio
// Seção de Comandos
escreval("--------------------------------------")
escreval("| Digite o Indice !                  |")
escreval("--------------------------------------")
escreva("> ")
Leia(IP)
escreval("--------------------------------------")
 se IP >= 0.5 entao
 escreval(" TODOS OS GRUPOS SUSPENDAM ATIVIDADES")
 senao
  se IP >= 0.4 entao
  escreval(" 1º E 2º GRUPO SUSPENDA ATIVIDADES")
  senao
   se ip >= 0.3 entao
   escreval(" 1º GRUPO SUSPENDA ATIVIDADES")
   senao
   escreval(" INDICE BOM!")
   fimse
  fimse
 fimse
 escreval("--------------------------------------")
fimalgoritmo