Помогите пожалуйста написать прграмму решения программного уравнения…

Program Ur1; Uses Crt; var a,b,x: real; begin clrscr; write ('Введите а не равное 0: '); readln (a); write ('Введите b: '); readln (b); if (b=0) then x: =0 if (b<0) then x: =(b/a); if (b>0) then x: =(-b/a); writeln ('x=',x); readkey; end.