Алгоритм решения уравнения a|x|=b в Паскале
X := b / a; If x < 0 Then WriteLn('x не существует') Else WriteLn('x = ', x);