Написать программу, которая решает уравнение ax+b = 0 (Паскаль)использовать эти ур. в

   var a,b,x:real; 
  begin
write('введите A');
read(A);
write('введите B');
read(B);
if (b=0) and (alt;gt;0)  then write('x - хоть какое число');
if (alt;gt;0) and (blt;gt;0) then begin
x:=b/(-a);
write('x = ',x);
end;
if (a=0) and (blt;gt;0) then write ('нет корней');
if (a=0) and (b=0) then write ('x - любое число');
end.