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

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.