CLS
PRINT "PESO IDEAL DE LOS PACIENTES EN LA CLINICA"
INPUT "SEA SU PESO...", D
INPUT "SEA SU ALTURA...", E
LET G = D / E*E
IF G = 25 THEN
PRINT "ESTAS EN UN PESO IDEAL"
END IF
IF P > 25 THEN
PRINT "DEBES BAJAR DE PESO O CRECER"
END IF
IF P < 25 THEN
PRINT "DEBES SUBIR DE PESO"
END IF