bonsoir, je n'arrive pas a faire mon dm de maths es que quelqu’un pourrait m'aider merci d'avance

Programme sur tI 83+
:ClrHome
:Input A
:Input B
:Input C
:Input D
:If A=C
:Then
:Disp "droite verticale"
:End
:If A≠C
:Then
:(D-B)/(C-A)→M
:B-M*A→P
:Disp "droite Y=MX+P"
:Disp M
:Disp P
:End