Помогите пожалуйсьа решить задачку:

[Rusl92]

Требовалось написать программу, которая решает уравнение «a|x|+с=b» относительно x для любых чисел a, b и с, введенных с клавиатуры. Все числа считаются действительными. Программист торопился и написал программу неправильно.
var a,b,c,x: real;
begin
readln(a,b,c,x);
if a = 0 then
if b = 0 then
write ('любое число')
else
write ('нет решений')
else
if b = 0 then
write('x = 0')
else
write('x =',b-с/a,' или x =',-b-с/a);
end.

Последовательно выполните три задания:
1) Приведите пример таких чисел a, b, с, при которых программа неверно решает поставленную задачу.
2) Укажите, какая часть программы является лишней.
3) Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы).

всем кто откликнется заранее огромное спасибо!

[Stilet]

А сам то как думаешь?

[Rusl92]

Насчет этой - вообще нет нароботок, а другой - которой тоже спрашивал - есть
пожалуйста помогите с этой задачей
здесь только ответ на 2 вопрос
x не нужно вводить с клавы
а дальше - помогите пожалуйста
не знаю как решить, срочно нужно((

[Stilet]

Имхо лишнее тут это:

if b = 0 then
write('x = 0')

Если а=-1, х=1 и c=1 то b будет нулем, но х не ноль.

[Tkirill]

1) a=0 b=0 c=4
2) Лишним является ввод Х
3)
var
a,b,c,x:real;
begin
readln(a,b,c);
if (a=0) and (b=c) then writeln(' x любое ')
else if (a=0) and (b=0) and (c<>0) then writeln(' решений нет ')
else if ((b-c)/a)< 0 then writeln(' решений нет ')
else if ((b-c)/a)=0 then writeln('x=0')
else writeln((b-c)/a,' ',-(b-c)/a);
end.

ето с1?