program calculo_imc;
uses wincrt;
var
imc,peso,altura: real;
begin
writeln('indique peso');
readln(peso);
writeln('ingrese altura');
readln(altura);
imc:=peso/(altura*altura);
writeln('su imc es:',imc:5:2);
end.