algoritmo "CalculoIMC"
 
	var 
	   M, A, IMC: Real 
	iniciO 
	    Escreva ("Massa (Kg): ") 
	    Leia(M) 
	    Escreva("Altura (m): ") 
	    Leia (A) 
	    IMC <- M / (A ^ 2) //massa dividido pela altura ao quadrado;;// 
	    Escreval("IMC: ", IMC :5:2) //5Casas e 2 decimais // 
	    Se (IMC >= 18.5) E (IMC < 25) então 
	    Escreva ("Parabens! Voce esta no seu peso ideal") 
	    senao 
	    Escreva("Voce não esta na faixa de peso ideal") 
	    FimSe 
	     
	fimalgoritmo