**TI92P*calculusRtermˆ¥Z.() Prgm Local a,b,n,t,z Dialog Title "Term of a Polynomial" Text "(a+b)^z" Request "a",a Request "b",b Request "z",z Request "Term",t EndDlog if ok=0 goto prge expr(a)a expr(b)b expr(z)z expr(t)t nCr(z,t)*b^t*a^(z-t)n Dialog Title "Term" Text string(n) EndDlog lbl prge EndPrgm äåÜu]