Задание 1

1) Написать простую процедуру, которая вычисляет  z = 4 arctg(1) и печатает результат в форме z = <значение z>. Значение z привести в радианах.

2) Написать процедуру, которая решает квадратное уравнение a*x*x + b*x + c = 0, где a, b и c - параметры, используя формулы x1=(-b+sqrt(b*b-4*a*c))/(2*a); x2=(-b-sqrt(b*b-4*a*c))/(2*a). Учесть, что при b*b - 4*a*c < 0  нет действительного решения и процедура должна печатать соответствующее сообщение.

3) Написать процедуру, которая решает квадратные уравнения при фиксированных значениях a и c (два параметра) и наборе значений b, задаваемом еще тремя параметрами: начальной величиной b1, шагом db и конечной величиной bn (например, b от 16 с шагом 0.5 до 24). Использовать свою (возможно модифицированную) процедуру из предшествующего подзадания 2), т.е. программа должна вызывать процедуру решения квадратного уравнения. Сохранять все решения уравнений в двух глобальных переменных-массивах – ключевых словах x11 и x21.