Написать программу в Паскале для решения неравенства Bx+C<0
Var x,b,c : real; begin writeln('Введите B:');readln(b);writeln('Введите C:');readln(c);x:=-b/c;writeln('x<',x);end.