3. текст программы с ошибкой представлен ниже: program ni; var a: array [1..81 o£ integer; s, l: integer; begineor k = 1 to 8 do readln (a[k]); s = 0; for i: =1 to 3 doif a[k] < 0 then s : = s = a[1]; writeln(s)каким окажется ответ после исполнения этой программы,качестве элементов массива будут введены числа 1,2, 3, 4, -1, -2, -3, 4? как исправить программу, чтобы она решала ?