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 
if a>0 then
  writeln('x<',x)
else
  writeln('x>',x)
end;
  readln;
end.