**TI89**mainProgram file 01/16/07, 15:33Rquad'¥ZÍ() Prgm ClrIO Lbl p Local a,b,c Input "a=",a Input "b=",b Input "c=",c b^2-4*a*cd If d<0 Then Disp "no real solutions" Else (­b+¨(d))/(2*a)e (­b-¨(d))/(2*a)f Disp "solutions",e,f EndIf EndPrgmÃäåÜú=