var a, b, x: real;
begin
  Writeln('Введите a:');
  Readln(a);
  if a=0 then writeln('Error: a=0!') else
begin
  Writeln('Введите b:');
  Readln('b');
  x:=-b/a;
  writeln('x<',x);
end;
  readln;
end.