program skelums;

var a,b,c:array[1..12] of integer;
i,j:integer;
y,z,x:real;



begin
writeln('Masivs A');
for i:=1 to 8 do
begin
a[i]:=random(10);
Write(A[i]:5);
end;


writeln;



writeln('Masivs B');
for j:=1 to 8 do
begin
b[j]:=random(10);
Write(B[j]:5);
end;
writeln;



writeln('Apakskopa c');
for i:=1 to 8 do
for j:=1 to 8 do
begin
if a[i]=b[j] then
begin
c[i]:=b[j];
write(c[i]:5);
end;
end;


end.