Math: Quadratic Formula

It's a necessity.

e.g. x²-2x+1

: >A=1; >B=-2; >C=1

: x = -1

-- Quad.From --

:Prompt A,B,C

:B²-4AC→D

:If D<0

:Then

:a+bi

:Else

:End

:(-B+√(D))/(2A)→Q

:(-B-√(D))/(2A)→R

:Disp Q,R