Program uravnenie;
Var a,b,x: real;
Begin
Writeln (' введите a');
Readln (a);
Writeln (' введите b');
Readln(b);
x:=(0-b)/a;
Writeln(' x равно=',x);
Readln (x);
End.