Решить уравнение в паскаль a *х²+2*b=0 

var a, x, b, s: real;beginwrite('a = ');readln(a);write('b = ');readln(b);if (-2*b)/a < 0 then writeln('Нет решения') elsebeginx:=sqrt((-2*b)/a);if x=0 then writeln('x = 0') elsewriteln('x1 = ', x, ' | x2 = ', -x)endend.