uses crt;var a,b:integer;x:real;beginread(a,b);if (a=0) or (b=0) then begin write('Error'); exit; end else x:=-b/a;write('Otvet: ',x);end.