:Prompt A,B,C
:Disp "X SOMMET",B/(2A)~Frac
:B²-4AC~>D
:Disp "DELTA",D~Frac
:If D>0
:Then
:Disp "2 SOLUTIONS"
:Disp (-B-#(D))/(2A)~Frac,(-B+#(D))/(2A)~Frac
:Else
:If D=0
:Then
:Disp "1 SOL",-B/(2A)~Frac
:Else
:Disp "0 SOL"
:End
Les # c'est des racines carrées, les ~> des flèches, et les ~Frac c'est pour afficher le résultat sous forme fractionnaire.