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? как исправить программу, чтобы она решала поставленнунпрограммистом ? ​

Const   m=5;   n=4; var   mas: array[1..m,1..n] of integer;   i, j, mult: integer; begin   for i: =1 to m do     for j: =1 to n do     begin       write('mas[', i, ',', j, '] = ');       readln(mas[i,j]);     end;   for i: =1 to m do   begin     for j: =1 to n do       write(mas[i, j], ' ');     writeln;   end;   mult: =1;   for i: =1 to m do     mult: =mult*mas[i,3];   writeln('произведение 3-го столбца массива = ', mult) end.

#код на ruby 2.2.3p173 number = 0 costs = [] costs[0] = 3 # карандаша costs[1] = costs[0] + 2 # ручки costs[2] = costs[1] + 7 # фломастера quantities = [] file.open("input.txt", "r") do |infile|       while (line = infile.gets)               p line               line.split(" ").each {|t| quantities < < t.to_i}               break       end       p quantities end s = 0 for i in 0..quantities.size - 1       s = s + costs[i] * quantities[i] end p s file.open("output.txt", "w") do |file|       file.puts s end