Напишите программу, которая в последовательности натуральных чисел определяет произведение отрицательных чисел программа получает на вход количество чисел последовательности, а затем сами числа. в последовательности всегда имеется отрицательное число. программа должна вывести одно число -произведение отрицательных чисел. !

Это же квадратное уравнение.

Program Sq1;

Var A, B, C, D, X1, X2 : Real;

Begin

 Writeln ('Введите коэффициенты квадратного уравнения');

 Readln (A,B,C);

 D:=B*B-4*A*C;

    If D<0 Then Writeln ('Корней нет! ')

    Else

       Begin

          X1:=(-B+SQRT(D))/2/A;

          X2:=(-B-SQRT(D))/2/A;

          Writeln ('X1=', X1:8:3, ' X2=',X2:8:3)

      End;

End.