Программа на языке Pascal для решения уравнения a*|x| = b:

program solveEquation;
var
a, b, x: real;
begin
writeln('Введите значение a:');
readln(a);
writeln('Введите значение b:');
readln(b);
if a = 0 then
begin
writeln('Уравнение некорректно, так как a не может быть равно нулю.');
end
else
begin
x := b / abs(a);
writeln('Решение уравнения ', a:0:2, '*|x| = ', b:0:2, ' равно x = ', x:0:2);
end;
end.

Эта программа сначала запрашивает значения a и b у пользователя, затем проверяет, что a не равно нулю. После этого программа рассчитывает значение x как b деленное на абсолютное значение a и выводит результат на экран.