Задание №2. Условный оператор.
Решить линейное уравнение ax = b.
program zadacha; Var x,a,b :real; begin readln (a,b); if a<>0 then x:=-b/a; Writeln ('x= ',x); end.