LISTA2_EX010 2014/02

//ALUNO: Luiz Henrique Forino
//PROGRAMAÇÃO I, PROFESSOR PX
//2014/02

Program EX07_LISTA02 ;

var y, z, imchomem, imcmulher :real;  //y para altura,
var x :integer; //x para o sexo

Begin
  writeln ('Digite 1 para HOMEM ou 2 para MULHER: ');
  readln (x);
  writeln ('Digite a sua altura: ');
  readln (y);

  if (x = 1) then
  begin
    imchomem := ((72.7*y)-58);
    writeln ('IMC HOMEM: ', imchomem, '.');
  end;
  if (x = 2) then
  begin
    imcmulher := ((62.1*y)-44.7);
    writeln ('IMC MULHER: ', imcmulher, '.');
  end;
  if (x <> 1) and (x <> 2) then
  writeln ('Sexo não identificado');
  readkey

End.