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

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