Programa que calcula o índice de massa corporal "IMC"

Program IndeceMassaCorporal ;
uses crt;
var
peso,altura,imc,fim: Real;

Begin
  // Solicita a altura
  write ('Informe a sua altura (em metros) : ');
  read(altura);

  // Solicita o peso
  write('Informe o seu peso: ');
  read(peso);

  // Calcula o indice de massa corporal, mostra resultados
  imc:=peso/(altura*altura);
  writeln( 'Seu imc = ', imc );

  if (imc<18.5) then
  Begin
    writeln('');
    writeln('Voce esta abaixo do peso recomendado.');
  End;

  if (imc>=18.5) and (imc<25) then
  Begin
    writeln('');
    writeln('Voce esta com o peso normal.');
  End;

  if (imc>=25) and (imc<30) then
  Begin
    writeln('');
    writeln('Voce esta com sobrepeso.');
  End;

  if (imc>=30) and (imc<40) then
  Begin
    writeln('');
    writeln('Voce esta obeso.');
  End;

  if (imc>=40) then
  Begin
    writeln('');
    writeln('Voce esta com obesidade morbida. Isso pode ser grave!');
  End;

  readkey ;
 End.