PRINT
PRINT "鉄欠乏性貧血  総投与鉄量"
PRINT "    （ 経口投与は、５倍する必要あり ）"
PRINT
INPUT PROMPT " 1. 女   2.男  ？  ":s
INPUT PROMPT "体重？  ":w
INPUT PROMPT "Ｈb（血色素）？ ":x
PRINT
LET y=(2.7*(14+(s-1)*2-x)+17)*w    !中尾の式の応用
PRINT "● 必要総投与鉄量 ＝";y;"mg"
PRINT 
PRINT "鉄剤は 注射 や 内服薬 は Ｆe１００mg 含有のものが多いです。"
PRINT
END