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

program zz1;

const n = 7; / / задаем количество элементов в массиве

A:array [1 ... n] of integer = (4, 5, 5, 6, 7, 9, 16); / / задаем последовательность чисел

var i, k, M, n1:integer; / / задаем переменные целого типа

begin

writeln (' введите заданное n1');

read (n1);

for i:=1 to n do / / организуем цикл, в котором переберем все элементы массива

if A[i] = n1 then k:=i; / / находим в последовательности заданное число n1 и запоминаем его номер

for i:=1 to k-1 do / / организуем цикл до заданного числа

M:=M + A[i]; / / вычисляем сумму

write (' сумма последовательности чисел меньших n1 = ', M); / /выводим ответ

end.