Дан одномерный целочисленный массив k из 15 элементов, заданный случайным образом в диапазоне от -20, до +25. найдите сумму всех положительных элементов, индексы которых кратны 3. вывести на экран сам массив и сумму.

Program z1;  const n = 15;  Var k: array [1..n] of integer; i,s:integer;Begin  randomize;  for i:=1 to n do  begin    k[i]:=random(25)-20;    write (k[i],' ');  end;    s:=0;  for i:=1 to n do    if ((k[i]>0)and(i mod 3 = 0)) then s:=s+k[i];      writeln;    writeln('Сумма элементов - ',s);End.

Var K:array [1..15] of integer;
z:integer;
begin
for i:=1 to 15 do
k:= random(56)-20;
z:=0;
for i:=1 to 15 do
if k[i]>0 then z:=z+k[i];
for i:=1 to 15 do
writeln (z);
end.
Начало и доп знаки доставь