Exemplo Peso

PROGRAM PES;
var
peso, altura, ideal, emag,engor,abso, abso_em, alt_imc, imc:real;
h_m:char;
Begin
textcolor (white);
textbackground (black);
clrscr;
Writeln ('Por favor, Digite o seu sexo: (M/F)');
read (h_m);
writeln ('Por favor, Digite o a sua altura: ');
read (altura);
writeln ('Por favor, Digite o seu peso: ');
read (peso);
If h_m = 'M'
then begin
ideal:=(72*altura)-58;
end
else begin
ideal:=(62.1*altura)-44.7;
end;
emag:=peso-ideal;
engor:=peso-ideal;
abso:=ABS(engor);
abso_em:=abs(emag);
writeln;
writeln ('O peso ideal é:', ideal:3:2);
if ideal
then begin
writeln ('Você precisa emagrecer ', emag:3:2, ' quilogramas');
end
else begin
writeln ('Você precisa engordar ', abso:3:2, ' quilogramas');
end;
{Aqui termina a parte da equação e começa o IMC}
alt_imc:=SQR(altura);
Imc:=peso/alt_imc;
writeln;
writeln ('O seu IMC é ',IMC:2:2);
Writeln;
writeln;
Writeln (' TABELA IMC');
If (IMC<20)
then begin
textbackground (red);
writeln('Abaixo de 20 A pessoa está abaixo do peso');
textbackground (black);
Writeln ('Entre 20 e 25 Peso Normal');
writeln ('Entre 25 e 30 Acima do Peso');
writeln ('Acima de 30 Obesidade');
end
else if (25>IMC) and (IMC>20)
then begin
writeln('Abaixo de 20 A pessoa está abaixo do peso');
textbackground (red);
Writeln ('Entre 20 e 25 Peso Normal');
textbackground (black);
writeln ('Entre 25 e 30 Acima do Peso');
writeln ('Acima de 30 Obesidade');
end
else if (IMC>25) and (IMC<30)
then begin
writeln('Abaixo de 20 A pessoa está abaixo do peso');
Writeln ('Entre 20 e 25 Peso Normal');
textbackground (red);
writeln ('Entre 25 e 30 Acima do Peso');
textbackground (black);
writeln ('Acima de 30 Obesidade');
end
else if (IMC>30)
then begin
writeln('Abaixo de 20 A pessoa está abaixo do peso');
Writeln ('Entre 20 e 25 Peso Normal');
writeln ('Entre 25 e 30 Acima do Peso');
textbackground (red);
writeln ('Acima de 30 Obesidade');
end;
end.