В двухмерном массиве найдите количество и творение не кратных 4 трехзначным

Как вводится массив? С клавиатуры считываем элементы массива либо по другому?

С клавиатуры

Желая как угодно

Как напишите так и будет

В двухмерном массиве найдите количество и творение не кратных 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 4lt;gt;0) and (C[i,k]gt;=100) and (C[i,k]lt;1000) then  не кратно 4, трехзначное
   begin
     P:=P*C[i,k];
     kol:=kol+1
   end;
   writeln('kol=', kol:7);
   writeln('творение=', P:5)
end.