Program z24;
uses crt;
var a,b:integer; x:real;
BEGIN
clrscr;
writeln('Vvedite a,b');
readln(a,b);
if a=0 then
writeln('Delenie na 0')
else
x:=-(b/a);
writeln('Otvet x=',x:3:1);
readln;
END.