Информатика. Массивы

Массив 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