CLS
DIM boy AS DOUBLE
DIM kilo AS INTEGER
DIM endeks AS DOUBLE
DIM boykare AS DOUBLE

INPUT "boy=", boy
INPUT "kilo=", kilo
boykare = boy * boy
endeks = kilo / boykare
PRINT "kitle endeksiniz=", endeks

IF endeks < 18.4 THEN PRINT "d�s�k kilolusun"
IF endeks > 18.5 AND endeks < 24.9 THEN PRINT "normal kilo"
IF endeks > 25.0 AND endeks < 29.9 THEN PRINT "fazla kilolu"
IF endeks > 30.0 AND endeks < 34.9 THEN PRINT "1.sinif obez"
IF endeks > 35 AND endeks < 44.9 THEN PRINT "2. snf obez"
IF endeks > 45 THEN PRINT "3. snf obez"