program EquationSolver;

var a, b, x: Integer;

begin
a := 2;
b := 4;

x := -b div a;
Writeln('Solution for 2x + 4 = 0:');
Writeln('x = ', x);
a := 2;
b := 0;
x := -b div a;
Writeln('Solution for 2x + 0 = 0:');
Writeln('x = ', x);
a := 0;
b := 2;
if b = 0 then
Writeln('x can be any number for 0x + 0 = 0.')
else
Writeln('No solution for 0x + 2 = 0.');
a := 0;
b := 0;
if b = 0 then
Writeln('x can be any number for 0x + 0 = 0.');

end.