Calcular el Indice de Masa Corporal

program nombre;
uses wincrt;
var
imc, peso, altura:real;
begin
writeln('ingrese peso');
readln(peso);
writeln('ingrese altura');
readln(altura);
imc:= peso/(altura*altura);
writeln('resultado',imc:5:2);
if imc<23 then
writeln('delgado')
else
if(imc>23)and (imc<25) then
writeln('normal');
if(imc>25) and (imc<28) then
writeln('obeso');
if imc>28 then
writeln('sobrepeso');
end.