создать массив, создать массив из четных чисел Опции

[jenka]

Есть вот такая задача:

Дана последовательность натуральных чисел A[N]. создать массив из четных чисел этой последовательности. Если таких чисел нет, то вывести сообщение об этом факте.

Помогите с решением, плиз.

[Lapp]

jenka, вот программа в предположении, что последовательность задана формулой
An = [n/3]
- то есть целая часть от деления номера на три.
Количество тестируемых членов последовательности задается константой M

{for jenka }

const
  M=100;  {maximum tested number}

var
  A2:array[1..M]of integer;   {Array of even numbers}
  i,j,An:integer;

function A(n:integer):integer;
begin
{Here goes a rule to compute An}
  A:=n div 3
end;

begin
  j:=0;  {current number of even numbers}
  for i:=0 to M do begin
    An:=A(i);
    if not Odd(An) then begin
      j:=j+1;
      A2[j]:=An
    end
  end;
  WriteLn('Total of ',j,' even numbers found.');
  for i:=1 to j do Write(A2[i]:8);
  ReadLn
end.

Приходи, говори, что не совсем понятно - объясним