Código em Pascal

E ai galera hoje, eu irei postar um código meu feito em pascal, ele calcula o índice de massa corporal de uma pessoa com base em um calculo que leve em conta a altura e o peso de uma pessoa.

Para executar o código você pode baixar o pascalzim ( editor de códigos em pascal ) no link: http://www.baixaki.com.br/download/pascal-zim-.htm 

vale a pena conferir .

Código:

Program imc ;

var

peso,altura,imc: Real;

opcao: char;

Begin

Opcao:= 's';

Repeat;

write('Digite sua altura em metros (Ex.: 1.75 ): ');

read(altura);

write('Digite seu peso em kg ( Ex.: 60 ):');

read(peso);

imc:=peso/exp(2*ln(altura));

write('');

write('Seu indice de massa corporal é: ',imc:2:1);

if(imc<18) then

begin

writeln('');

write('Você está magro :/');

end;

if(imc>=18) and (imc<25) then

begin

writeln('');

write('Você está no peso ideal :)');

end;

if(imc>=25) and (imc<30) then

begin

writeln('');

write('Você está com sobrepeso :\');

end;

if(imc>=30) and (imc<40)then

begin

writeln('');

write('Você está obeso :(');

end;

if(imc>40) then

begin

write('');

write('Você está com obesidade mórbida,procure um Médico.')

end;

writeln('');

Write('Deseja realizar um novo calculo? (S/N): ');

Readln(Opcao);

until (Opcao='n');

writeln('');

write('Obrigado por usar um software de Felipe Rafael.');

readln;

End.