var
i,j:longint;
a,b:array[0..20] of longint;
out：array[0..200] of boolean;
begin
for i:=1 to 12 do read(a[i]);
for i:=1 to 15 do read(b[i]);
for i:=1 to 12 do
for j:=1 to 15 do
if a[i]=b[j] then out[a[i]]:=true;
for i:=1 to 90 do
if not out[i] and (i mod 8=0) then
write(i,' ');
end.
【输入】：
2 17 23 28 29 37 38 48 49 58 79 114
2 17 23 28 29 38 45 48 56 58 67 72 75 101 122
输出：8 16 24 32 40 56 64 72 80 88