Составить программу которая находит наименьшую сумму ряда 3+4+5+6+ превышающую число 15.

Var   i, k, n: word;                               a, b: array[1..10000] of integer; begin    write(' n = ');   readln(n);   writeln(' введите массив из ', n, ' чисел: ');   for i : = 1 to n do   begin       read(a[i]); //вводим i-й элемент массива.       if a[i] mod 2 = 0 then //если он четный,         begin           inc(k); //то увеличиваем k на 1.           b[k] : = a[i] //очередной элемент нового массива.         end   end;   writeln('четные числа обратном порядке: ');   { выводим четные элементы массива в обратном порядке: }   for i : = k downto 1 do       write(' ', b[i]);   write(' k = ', k) end.

Var a: array [1..10] of integer; i,j,k: integer; function sum(c: integer): integer; var s: integer; begin s: =c mod 10; c: =c div 10; s: =s + c mod 10; s: =s + c div 10; sum: =s; end; begin randomize; writeln('массив: '); for i: =1 to 10 do begin a[i]: =random(900)+100; write(a[i],' '); end; writeln; writeln('массив после перестановок: '); for i: =1 to 9 do for j: =(i+1) to 10 do if sum(a[i])> sum(a[j]) then begin k: =a[i]; a[i]: =a[j]; a[j]: =k; end; for i: =1 to 10 do write(a[i],' '); writeln; end.