Cod sursa(job #176177)
var N,M,P,i,j,l,k:integer;
s,s1,s2,s3:array [1..500] of integer;
begin
assign(input,'pedefe.in'); reset(input);
assign(output,'pedefe.out'); rewrite(output);
readln (N,M,P);
for i:=1 to N do read (s1[i]);
for i:=1 to M do read (s2[i]);
for i:=1 to P do read (s3[i]);
l:=1; j:=1;
for i:=1 to N do begin
for k:=j to M do
if (s1[i]=s2[k]) and (s1[i]>=s[l]) then begin
s[l]:=s1[i]; l:=l+1; break;
end;
j:=j+k;
end;
for i:=1 to l do write (s[i],' ');
close(input); close(output);
end.