информатика 8 класс задание 11 параграф 1.1

Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
        Begin      
 Writeln('Введите элементы матрицы');      

k:=0; 
 for i:=1 to N do     
  for j:=1 to M do     
    Begin     
      readln(mas[i,j]);       
      if (mas[i,j] mod 2 = 0) then k:=k+1;     
    end; 
  
    Writeln();   
    Writeln('Исходная матрица');
   
   for i:=1 to N do   
     Begin     
       for j:=1 to M do     
          Begin     
             Write(mas[i,j], ' ')     
           end;     
      Writeln();   
     end;         

Writeln();   
Writeln('Количество четных элементов = ',k);      
 end;

readln;
end.

Для поиска страниц и документов, созданных в определенный период, нужно использовать поиск по дате документа. Для этого, находясь на странице расширенного поиска, нужно ввести запрос в форму поиска, указать желаемый период создания документов (даты можно ввести вручную или при календаря, который появляется при нажатии на поле ввода даты). Теперь нужно нажать кнопку «Найти».В результатах поиска будут отображены заданные параметры фильтра по периоду. Для отмены выбранного фильтра нужно нажать на крестик. Не всегда хостинг сайта выдает корректную дату, поэтому поиск по дате может ограничить результаты поиска.