Дан массив. Найти все его нечетные элементы. И записать в массив B.

program Primer;

var

a, b:array[1 ... M] of Integer;

M, N, k, k2:Integer;

Begin

Write ('M: ');

Readln (M);

Write ('N: ');

Readln (N);

Writeln ('A: ');

for k:=1 to N do

begin

write (k,' : ');

readln (a[k]);

end;

k2:=0;

for k:=1 to N do

if (a[k] mod 2) 0 then

begin

inc (k2);

b[k2]:=a[k]

end;

Writeln ('B (', k2,') : ');

for k:=1 to k2 do writeln (k,' : ', b[k]);

end.