Информатика.массивы массив a вводится с клавиатуры.сформировать новый массив b,состоящий из чётны элементов массива а.элементы вводятся с клавиатуры.размер произвольный.

Const n=10;
var a,b:array[1..n] of integer;
i,j:integer;
begin
writeln('Введите ',n,' чисел');
for i:=1 to n do readln(a[i]);
j:=0;
for i:=1 to n do
 if a[i] mod 2 = 0 then begin j:=j+1; b[j]:=a[i]; end;
writeln('Полученный массив:');
for i:=1 to j do write(b[i],' ');
writeln;
end.

Пример:
Введите 10 чисел
45
65
12
78
14
47
16
62
42
38
Полученный массив:
12 78 14 16 62 42 38