Решите алгоритм у=√x^2-4 / a-b^2+2c

Var
   x,a,b,c:real;
Begin
Write('x = ');ReadLn(x);
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
a:=a-b*b+2*c;
if (a = 0) then WriteLn('Ошибка: На ноль делить нельзя!')
else if x*x < 4 then
     WriteLn('Ошибка: Квадратный корень нельзя вычислить для отрицательного числа!')
     else WriteLn('y = ',Sqrt(x*x-4)/a)
End.