Написать программу на языке pascal для решения уравнения kx+b=0

var

   k, b, x: real;

begin

   writeln('Введите k, b:');

   readln(k, b);

   writeln(k, 'x+', b, '=0');

   writeln(k, 'x=-', b);

   writeln('x=-', b, '/', k);

   x := (b-b-b) / k;

   writeln('x=', x);

end.