Peso ideal de um homem e de uma mulher

program calculaPesoIdealHomemMulher;
 
  var alturaHomem: real; {altura de um homem que se queira saber o peso ideal}
      alturaMulher: real; {altura de uma mulher que se queira saber o peso ideal}
  function calculaPesoIdealHomem(altura: real): real;
    begin
      calculaPesoIdealHomem := 22*(altura*altura);
    end;
  function calculaPesoIdealMulher(alt: real): real;
    begin
      calculaPesoIdealMulher := (20.8)*(alt*alt);
    end;


begin
    writeln('Digite a altura de um homem: ');
    readln(alturaHomem);
    writeln('O peso ideal é: ', calculaPesoIdealHomem(alturaHomem));
    writeln('Digite a altura de uma mulher: ');
    readln(alturaMulher);
    writeln('O peso ideal é: ', calculaPesoIdealHomem(alturaMulher));
end.