program ICM;
var
A, B, C, H, D, F: real;
E : string;
Begin
writeln('');
writeln('');
writeln('');
writeln('');
writeln('');
D := 2;
Writeln('Calculadora ICM');
write('Para começarmos, por favor digite seu nome: ');read(E);
Writeln('Seja bem vindo ',E, ' você podera utilizar essa ferramenta para verificar seu
ICM(Indice de massa corporal.');
repeat
Writeln('Calculadora ICM');
write(E,', digite seu peso: ');read(A);
writeln('Agora digite sua altura: ');read(B);
C := 2 * B;
H := A / C;
if H < 18.6 then
writeln(E,' seu teste deu: ',H:3:2,' você está abaixo do peso!! Cuidado.');
if (H > 18.5) and (H < 25) then
writeln(E,' seu teste deu: ',H:3:2 ,', você está com um ótimo peso, continue assim!');
if (H > 24.9) and (H < 30) then
writeln(E,' seu teste deu: ',H:3:2 ,', você está acima do peso!! Cuidado.');
if (H > 29.9) and (H < 35) then
writeln(E,' seu teste deu: ',H:3:2 ,', você está no grau de obesidade 1, procure ajuda
medica!.');
