{
  Programa para o cálculo do índice de massa corporal.
  Implementação utilizando if-then-else.
} 
program calc_imc;
var
   p, h, imc : real;

begin
   writeln;
   writeln('Cálculo do índice de massa corporal');
   writeln;
   write('Peso (kg): ');
   read(p);
   write('Altura (m): ');
   read(h);
   
   imc := p/(h*h);
   writeln;
   writeln ('IMC: ', imc:2:2);
   
   if (imc <= 19) then
      writeln('Abaixo do peso.')
   else
      if (imc <= 25) then
	 writeln('Peso normal.')
      else
         if (imc <= 30) then
	    writeln('Sobrepeso.')
	 else
	    writeln('Obeso.');
end.