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.
uses crt;
var a,b:integer;
x:real;
begin
read(a,b);
if (a=0) or (b=0) then begin write('Error'); exit; end else x:=-b/a;
write('Otvet: ',x);
end.