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")