составить программу решения уравнения a*|x|=b в паскале

beginvar a,b,x: integer;  writeln('Введите a');  readln(a);  writeln('Введите x');  readln(x);  b:=a*abs(x);writeln('b =', b);end.