Дан массив из 25 целых чисел. Элементы массива могут принимать целочисленные значения от -200 до 200. Определите Количество нулевых элементов, индексы которых не кратны 3.

Const   N = 25;Var   A:array[1..N] of integer;   i,k:integer;Begink:=0;Write('Исходный массив: ');For i:= 1 to N do    Begin    A[i]:=random(401)-200;    Write(A[i],' ');    if (A[i] = 0)and(i mod 3 <> 0) then k:=k+1;    End;WriteLn;WriteLn('k = ',k);End.