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.