PESO IDEAL

program peso_ideal;
uses crt;
  function pideal(h:real;sexo:char):real;
  begin
    if (sexo = 'm') then pideal:= (62.1*h-44.7)
    else
      if (sexo = 'h') then pideal:= (72.7*h-58);
  end;
  var alt:real;
      s:char;
  begin
    clrscr;
    writeln ('Digite a Altura');
    readln (alt);
    writeln ('Digite o sexo: (M - mulher, H - Homem');
    readln (s);
    writeln ('O peso ideal e:', pideal(alt,s):2:2);
    readkey;
  end.