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.
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.