[von JoSy]

1.

Код:

program test;

const n = 8;

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

    for i:=1 to j-1 do write(b[i], ' ');
        
end.