Составьте программу решения линейного уравнения \(\mathbf ax+b=0\) , где a, b - коэффициенты, не прибегая к вложенным ветвлениям.

Линейное уравнение \(\mathbf ax+b=0\) имеет решение:
1. если коэффициенты a<>0 и b<>0, x=-b/a;
2. при a=0 и b=0, 0*х + 0 = 0, то х - любое число.
3. при a=0 и b<>0, 0*x+b=0, уравнение не имеет корней.

• program n_13;
• var x, a, b: real;
• begin {начало программного блока}
• writeln \('Решение линейного уравнения '\);
• write \('Введите коэффициенты a, b\\gt \\gt '\);
• readln \(a, b\);
• if \(a\\lt \\gt 0\) and \(b\\lt \\gt 0\) then
• if \(a=0\) and \(b=0\) then writeln \('x \- любое число'\);
• x:=-b/a;
• end.
• begin
• end;
• writeln \('Корень уравнения x=', x:9:3\)
• if \(a=0\) and \(b\\lt \\gt 0\) then writeln \('Корней нет'\);