Calculo de Indice de masa corporal

program ibdicecorp;
uses wincrt;
var
   imc,alt,pe:real;
begin
     writeln('Calculo de indice corporal');
     writeln('introduzca la peso');
     readln(pe);
     writeln('introduzca altura');
readln(alt);
imc:= pe/(alt*alt);
writeln('el resultado es ',imc:5:2);
end.


Por Richarth Flores