INPUT PROMPT "成功確率？ ":P
INPUT PROMPT "試行回数？ ":n
LET C=0
FOR i=0 TO n
   LET C = C + ( i * COMB(n,i) * P^i * (1-P)^(n-i) )
NEXT i
PRINT
PRINT "　成功確率 ";P;"のトライを ";n;" 回試行したとき"
PRINT "成功回数の期待値は ";C;" 回である。"
PRINT
END