Peso ideal de um homem

program calculaPesoIdealHomemAmpliado;

  var alturaHomem: real; {altura do homem que se quer saber o peso ideal}
      pesoHomem: real; {peso do real homem}
      porcentagem: real; {porcentagem acima ou abaixo do peso ideal}
  function calculaPesoIdealHomem(altura: real): real; {função que retorna o valor do peso ideal de um homem}
   
    begin
      calculaPesoIdealHomem := 22*(altura*altura);
    end;

begin
    writeln('Digite a altura de um homem: ');
    readln(alturaHomem);
    writeln('O peso ideal é: ', calculaPesoIdealHomem(alturaHomem)); {retorna o valor do peso ideal de um homem}
    writeln('Digite o peso de um homem: ');
    readln(pesoHomem);
    porcentagem := (((pesoHomem*100)/calculaPesoIdealHomem(alturaHomem)) - 100);
    if porcentagem < 0 then
       writeln('O homem está abaixo do peso ideal e a porcentagem é: ', porcentagem);
    if porcentagem > 0 then
       writeln('O homem está acima do peso ideal e a porcentagem é: ', porcentagem);
    if porcentagem = 0 then
       writeln('O homem está no peso ideal: ', porcentagem);

end.