Написать програму решения уравнения ах^3 + вх = 0 для произвольных а, в

(Pascal.)

program ...;var a,b,x1,x2,x3:real;beginwriteln('Введите коэффициент a');readln(a);writeln('Введите коэффициен b');readln(b);

x1:=0;

if (b>0) and (a>0) then writeln('Корни ур-я равны ',x1) elsex2:=sqrt(-b/a);x3:=-sqrt(-b/a);writeln('Корни ур-я равны ',x1,x2,x3);

end.

vara, b, x2, x3 : real;begin writeln('Введите коэффициент a'); readln (a); writeln('Введите коэффициен b'); readln (b); if b = 0 then begin if a = 0 then writeln ('X - любое число') else writeln('Корни ур-я равны: 0') end else if (a = 0) or (- b / a <= 0) then writeln ('Корни ур-я равны: 0') else begin x2 := sqrt(-b / a); x3 := -sqrt(-b / a); writeln('Корни ур-я равны 0, ', x2,' ',x3); end; readln;end.