división

program lucilinda;
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.