SET serveroutput ON

 accept altura prompt 'Introduza a sua altura em metros:';
 accept sexo prompt 'Introduza o seu sexo(M ou H):';

 DECLARE
 valor NUMBER(9,2);
 sexo_aux VARCHAR(20) :='&sexo';

 BEGIN

 IF (sexo_aux = 'm') OR (sexo_aux = 'M') THEN
 valor := (62.1 * &altura);
 valor := valor - 44.7;
 DBMS_OUTPUT.put_line('O seu peso ideal para mulher é:'|| valor);

 ELSIF (sexo_aux = 'h') OR (sexo_aux = 'H') THEN
 valor := (72.7 * &altura);
 valor := valor - 58;
 DBMS_OUTPUT.put_line('O seu peso ideal para homem é:'|| valor);

 ELSE
 DBMS_OUTPUT.put_line('Erro na escolha do sexo (M) ou (H)');

 END IF;

 END;