Program Peso_idial ; 
///by:gil
var
h:integer;
s:char;
p:real;
 Begin
  writeln('Qual é o sexo: (F)eminino (M)asculino');
  s:=readkey;
  Write('Qual é a altura em CM?');
  read(h);
   if (s='m') then
    p:=((72.7*h)/100)-58
   else if(s='f') then
    p:=((62.1*h)/100)-44.7;
  writeln('O peso ideal é: ',p:3:2);
 End.