program EquationSolver;

var
k, b, x: real;

begin
// Вводим значения для k и b
write('Введите значение для k: ');
readln(k);

write('Введите значение для b: ');
readln(b);

// Решаем уравнение kx + b = 0
if k <> 0 then
begin
x := -b / k;
writeln('Решение уравнения ', k:0:2, 'x + ', b:0:2, ' = 0: x = ', x:0:2);
end
else
begin
if b = 0 then
writeln('Решение уравнения 0x = 0: любое значение x')
else
writeln('Уравнение не имеет решения');
end;

end.