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