program metszet;
var
    a : array [1..4] of integer = (8,5,3,4);
    b : array [1..5] of integer = (3,8,9,6,4);
    c : array [1..30] of integer;
    i, j, k, n, m : integer;
begin
    n := 4;
    m := 5;
  
    k := 1;
    for i := 1 to n do
    begin
        j := 1;
        while (j <= m) and (a[i]<>b[j]) do
            j := j + 1;
        if j <= m then 
        begin
            c[k] := a[i];
            k := k + 1;
        end;    
    end;
    for i := 1 to k - 1 do
        Write(c[i], ' ');
end.