Lógica de Programación: Calculo de Masa Corporal 2

Program logicander;

Uses WinCrt;
Var
imc, peso, altura : real;
begin

WriteLn ( 'Ingrese su peso' );
ReadLn (peso);
WriteLn ( 'Ingrese su altura' );
ReadLn (altura);

imc:= peso/(altura*altura);
WriteLn ( 'Su IMC es: ', imc:5:2);

If imc<19 then
WriteLn ( 'Delgado' )
else
If (imc>19) and (imc<25) then
WriteLn ( 'Normal' )
else
If imc>22 then
WriteLn ( 'Ideal' )
else
If (imc>26) and (imc<30) then
WriteLn ( 'Sobrepeso' )
else
If imc>30 then
WriteLn ( 'Controle su Peso' )

end.