Решите алгоритм у=√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.