DIM KG, LBS, MTS, IMC AS DOUBLE
Console.WriteLine("CALCULO INDICE DE MASA CORPORAL") CONSOLE.WriteLine("INGRESE PESO EN LIBRAS: ") CONSOLE.WriteLine("INGRESE ESTATURA EN METROS: ") CONSOLE.WriteLine("EL IMC ES: " &IMC ) CONSOLE.WriteLine("BAJO PESO") IF IMC > =35AND IMC<=24.9 THEN
CONSOLE.WriteLine(" ADEVUADO") IF IMC > =30 AND IMC<=34.9 THEN
CONSOLE.WriteLine(" OBESIDAD GRADO 1") IF IMC > =35 AND IMC<=34.9 THEN
CONSOLE.WriteLine(" OBESIDAD GRADO 2") CONSOLE.WriteLine("OBESIDAD GRADO 3")
