В двухмерном массиве найдите количество и произведение не кратных 4 трехзначным элементов k-ой столбца срочно надо

{В двухмерном массиве найдите количество и произведение не кратных 4 трехзначным элементов k-го столбца} var  C:array [1..100,1..100] of integer;  p: longint;  kol, k:byte; {кол-во отрицательных эл-тов}  N,M,i,j:byte; begin   writeln('введите размерность массива (кол-во строк, столбцов)');   readln(N,M);   writeln('введите элементы двумерного массива');   for i:=1 to N do   for j:=1 to M do    read(C[i,j]);   writeln('введите номер столбца');   readln(k);   kol:=0; P:=1;    for i:=1 to N do    if  (C[i,k] mod 4<>0) and (C[i,k]>=100) and (C[i,k]<1000) then  {не кратно 4, трехзначное}    begin      P:=P*C[i,k];      kol:=kol+1    end;    writeln('kol=', kol:7);    writeln('произведение=', P:5) end.