1. Найти сумму элементов массива принадлежащих промежутку от C до D (C и D вводятся с клавиатуры). 2. Определить есть ли в данном массиве положительные элементы кратные k ( k вводится с клавиатуры). Паскаль

const N = 12;var a: array[1..N] of integer; c, d, k, count, sum, i: integer;begin writeln('Введите промежуток: '); readln(c, d); writeln('Введите k: '); readln(k); for i := 1 to N do begin a[i] := random(30); write(a[i], ' '); if(a[i] > 0) and (a[i] mod k = 0) then inc(count); end; for i := c to d do begin sum := sum + a[i]; end; writeln; writeln('Сумма элементов на промежутке [', c,';', d,'] : ', sum); if(count <> 0) then writeln('Положительных элементов кратных ', k, ' : ', count);end.