Fórmula Resolvente (TI83+/TI84)

Disp "AX^2+BX+C=0"
0→A    "Para o caso de A não valer zero, o que implicaria que o ciclo While não seria cumprido"
While A=0
Prompt A
If A=0
Then
Disp "ERRO: A≠0"
End
End
Prompt B,C
(B^2-4AC)→D
(-B+√(D))/(2A)→X
Disp "X1=",X
(-B-√(D))/(2A)→X
Disp "X2=",X
Pause    "Faz pausa no programa. Este só avança se premirmos ENTER"
Stop    "Ordem para parar o programa, mostrando a messagem «Done»"