дано уравнение ax+b=0. Найти решение этого уравнения или сообщить,что решения не существует.

VAR a,b:integer;x:real;beginwriteln(' a=');readln(a);writeln ('b=');readln (b);x:=-b/a;if a =0 then writeln('uravnenie korney ne imeet') else writeln('korni uravneniya=',x);readln;end.