program chy;
Var x,a,b :real;
begin
write('a=');
read (a);
write('b=');
read(b);
if a<>0 then x:=-b/a;
Writeln ('x= ',x);
end.
program chy;
Var x,a,b :real;
begin
write('a=');
read (a);
write('b=');
read(b);
if a<>0 then x:=-b/a;
Writeln ('x= ',x);
end.