Calculo de Masa Corporal

Program logicander;


Uses WinCrt;
Var    
    IMC, altura, peso : real;
Begin


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


IMC:= peso/(altura*altura);


WriteLn ( 'Su IMC es: ', IMC:3:3);


end.