1 program peso_ideal;
    2 {importação da biblioteca CRT}
    3 uses crt;
    4 var
    5   {criação da variável sexo do tipo caracter}
    6   sexo:char;
    7   {criação da variável altua do tipo inteiro}
    8   altura:integer;
    9   {criação da variável peso do tipo ponto flutuante}
   10   peso:real;
   11 begin
   12    {limpa a tela}
   13    clrscr;
   14    {escreve no prompt do comando}
   15    writeln('Escolha o sexo: (F)eminino (M)asculino');
   16    {esperando que o usuário pressione alguma tecla e atribuindo o caractere a variável sexo}
   17    sexo:=readkey;
   18    {tornando maiúscula(caixa alta)}
   19    sexo:=upcase(sexo);
   20    {escreve no prompt do comando}
   21    write('Digite a altura em CM:');
   22    {esperando queo usuário digite algo e atribua a variável altura}
   23    readln(altura);
   24    {se sexo contiver M faça}
   25    if(sexo='M') then
   26       {realize o cálculo do peso ideal}
   27       peso:= ((72.7 * altura)/100) - 58
   28    {do contrário se sexo contiver F faça}
   29    else if(sexo='F') then
   30       {realize o cálculo do peso ideal}
   31       peso:= ((62.7 * altura)/100) - 48;
   32    {escreva no prompt do comando + o valor da variável com 3 casas decimais e 2 após o ponto}
   33    writeln('Seu peso ideal: ',peso:3:2);
   34    {espera que algo seja teclado para finalizar o programa}
   35    readkey;
   36 end.