Сpascal ! : массив а задается с клавиатуры. создайте массив б состоящий из четных чисел массива а. (отвечу взаимной по другим предметам ! заранее ! p.s. , , не отвечайте ради дело серьёзное )

Const
n=10;
var
a,b:array[1..n]of integer;
i,k:integer;
begin
    for i:=1 to n do
        read(a[i]);
               for i:=1 to n do
                      if a[i] mod 2=0 then
                            begin
                                 k:=k+1;
                                 b[k]:=a[i];
                            end;
writeln;
             for i:=1 to k do
                   write(b[i]:4);
end.