3. текст программы с ошибкой представлен ниже: program n1; var a: array [1..8] of integer; s, k: integer; beginfor k : = 1 to 8 do readln (a[k]); s : = 0; for k : =1 to 8 doif a (k) < 0 then s : = s + a[1]; writeln (s)endкаким окажется ответ после исполнения этой программы, если вчестве элементов массива будут введены числа 1,2, 3, 4, -1, -2, -3, -4? как исправить программу, чтобы она решала поставленную передпограммистом ? 20б​

var

    b : array of integer : = new integer[15];

    a : array of integer : = new integer[0];

begin

    writeln('введите целые числа: ');

    for var i : = 0 to 14 do read(b[i]);

    for var i
: = 0 to 14 do begin

        if b[i] < > 0 then begin

            setlength(a, a.length+1);

            a[a.length-1] : = b[i];

        end;

    end;

    writeln('b = ', b);

    writeln('a = ', a);

end.

var

    a, s, p : integer;

begin

    p : = 1;

    repeat a : = readinteger('введите 4-х значное число: ') until (a > 999) and (a < 10000);

    while a > 0 do begin    
 

        s += a mod 10;

        p *= a mod 10;

        a : = a div 10;

    end;

    writeln('сумма ', s);

    writeln('произведение ', p);

end.