Дан массив целых чисел из 10 элементов. Заполните клавиатуру. найти: а) сумму элементов,имеющих нечетное значение б)

program zz1;const n = 10; // задаем количество элементов в массивеvar i, k, p:integer; // задаем переменные целого типаm:array [1..n] of integer;beginfor i:=1 to n do // получаем n чисел с клавиатуры и записываем их в массивread(m[i]);for i:=1 to n do if m[i] mod 2 = 1 then k:=k+m[i]; // проверяем, если число при делении на два дает в остатке один, то добавляем в суммуwriteln(\' сумма нечетных элементов массива = \', k);read(p); // вводим заданное числоwriteln(\' найденные индексы \');for i:=1 to n do if m[i] > p then write(\' \', i);writeln;k:=0;for i:=1 to n do if (m[i] > 0) and (m[i] mod p = 0) then k:=1; if k=0 then write(\'положительных кратных заданному числу нет \') else write(\'положительные кратные заданному числу есть\');end.