Дана последовательность чисел а1,а2,...,а15, упорядоченная по возрастанию, и число n1, не равное ни одному из чисел последовательности, и такое что а1<n1<a15.
Определить сумму последовательности, меньших n1.

program z;var a:array [1..15] of integer; i,k,s,j,n:integer;beginwriteln('Начальная последовательность');for i:=1 to 15 dobegina[i]:=random(1,100);write(a[i], ' ');end;for j:=1 to 14 dofor i:=1 to 14 doif a[i]>a[i+1] thenbegink:=a[i];a[i]:=a[i+1];a[i+1]:=k end;writeln;writeln('Отсортированная последовательность');for i:=1 to 15 dowrite(a[i], ' ');writeln;write('Введите N (а[1]<N<a[15]) ');read(n);for i:=1 to 15 dobeginif (a[i]=n) or (a[1]>n) or (a[15]<n) then beginwhile (a[i]=n) or (a[1]>n) or (a[15]<n) dobeginwriteln('Ошибака! Число N не длжно совпадать с элементами последвовательности и а[1]<N<a[15]');write('Введите N (а[1]<N<a[15]) '); read(n);end;end;if a[i]<n then s:=a[i]+s;end;write('Cумму последовательности меньших N = ',s);end.