Определить количество элементов последовательности натуральных чисел, кратных числу М

uses crt;
var a: array [1..100,1..100] of integer;
    n,i,j,k,buf: integer;
 
begin
randomize;
write ('Razmer matrizy ');
readln (n);
writeln ('Dana matriza');
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        a[i,j]:=random(21)-10;
        write (a[i,j]:5);
        end;
    writeln;
    end;
for i:=1 to n do
    begin
    For k:=1 to n do
          begin
          for j:=1 to n-1 do
              if a[i,j]>a[i,j+1] then
                 begin
                 buf:=a[i,j];
                 a[i,j]:=a[i,j+1];
                 a[i,j+1]:=buf;
                 end;
          inc(k);
          end;
    k:=0;
    end;
writeln ('Sortirovannaja matriza');
for i:=1 to n do
    begin
    for j:=1 to n do
        write (a[i,j]:5);
    writeln;
    end;
end.

program Project6;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
        type massiv= array[1..5,1..4] of real ;
  var a:massiv;
  i,j,k:integer;
   r:real;
 
  procedure Zapolnenie(i,j:integer;  var a:massiv);
  var x:real;
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
    randomize;
   for I := 1 to 5 do
     for j := 1 to 4 do 
begin   
   a[i,j]:=random(50);
    x:= random(17)-8;
a[i,j]:=x*x*x+1;
     end;
  end;
begin
  { TODO -oUser -cConsole Main : Insert code here }
 
     Zapolnenie(i,j,a);
        begin
 
       for i := 1 to 5 do
      begin
    for j := 1 to 4 do
write(a[i,j]:10:3);
    writeln;
    end;
   end;
 for i := 1 to 4-1 do
  begin
    repeat
k:=0;
for j:= i+1 to  4 do
if a[i,j]>a[i+1,j] then
  begin
  r:=a[i,j];
  a[i,j]:=a[i+1,j];
  a[i+1,j]:=r;
k:=k+1;
end;
    until k=0;
  end;
 
      begin
       for i := 1 to 5 do
      begin
    for j := 1 to 4 do 
write(a[i,j]:10:3);
    writeln;
    end;
   end;
   readln;
end.

//3. Определить количество элементов последовательности натуральных чисел, кратных числу М и заключенных в промежутке от L до N
var 
  a:array[1..100] of integer;
  i,n1,n,l,m,k:integer;
begin
  readln(n1);
  readln(l,n);
  readln(m);
  k:=0;
  for i:=1 to n1 do
    begin
      read(a[i]);
      if (a[i]>=l) and (a[i]<=n) and ((a[i] mod m)=0) then
        inc(k);
    end;
  writeln;
  write(k);
end.