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Б