             problem(994),
             problem(2817),
         ]
-    }+    }

                s:=s+a[j]; // в переменной s подсчитываем текущую сумму
                if s&gt;k then begin
                    // writeln(j); // этот вывод пригодится дальше
                    if j-i+1&gt;min then min:=j-i+1;
                    break;
                end;
            end;

            for j:=j to n do begin // цикл начинается с j!
                s:=s+a[j]; 
                if s&gt;k then begin
                    if j-i+1&lt;min then min:=j-i+1;
                    break;
                end;
            end;
