1. Отыскать сумму частей массива принадлежащих интервалу от C до D

var N, C, D, k, r, i, S: integer;
a: array [1..65535] of integer;
begin
S:=0; сумма эл-тов
r:=0; кол-во кратных k и положительных
writeln (Введите кол-во частей массива ); readln(N); вводим кол-во эл-тов массива
writeln (Введите k ); readln(k); то, чему кратно
for i:=1 to N do
readln(a[i]);
writeln (Введите С ); readln(C); просвет начало
writeln (Введите D ); readln(D); просвет конец
for i:=C to D do
S:=S+a[i]; считаем сумму
for i:=1 to N do
if (a[i]gt;0) and (a[i] mod k = 0) then r:=r+1;
if r gt; 0 then writeln(В массиве есть положительные элементы кратные k);
writeln(Сумма эл-тов массива в данном спектре: , S);
end.