CLS
PRINT "Calcule el peso ideal"
INPUT "Dime tu altura en metros   ", A1
INPUT "Dime tu peso en kilogramos   ", B1
LET D1 = B1 / (A1 * A1)
PRINT "Tu peso ideal es", D1
IF D1 = 25 THEN
PRINT "Tu peso es ideal"
END IF
IF D1 > 25 THEN
PRINT "Debes bajar de peso o crecer"
END IF
IF D1 < 25 THEN
PRINT "Debes subir de peso o crecer"
END IF