Программа на языке Pascal:

program SolveEquation;
var
k, b, x: real;
begin
writeln('Enter the value of k:');
readln(k);
writeln('Enter the value of b:');
readln(b);
if k = 0 then
writeln('Error: k cannot be zero')
else begin
x := -b / k;
writeln('Solution:');
writeln('x = ', x:0:2);
end;
readln;
end.

Программа принимает значения коэффициентов k и b уравнения kx + b = 0 от пользователя и вычисляет значение переменной x. Если k равно нулю, программа выведет сообщение об ошибке.