Есть вот такая задача:
Дана последовательность натуральных чисел A[N]. создать массив из четных чисел этой последовательности. Если таких чисел нет, то вывести сообщение об этом факте.
Помогите с решением, плиз.
{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.