DEFINE CLADULTO NUMERIC


IF IMC<18.5 THEN
 ASSIGN CLADULTO=1 
END


IF IMC>=18.5 AND IMC<25 THEN ASSIGN CLADULTO=2 
END


IF IMC>=25 AND IMC<30 THEN ASSIGN CLADULTO=3 
END

IF IMC>=30 THEN ASSIGN CLADULTO=4 

END