program masuv;
uses crt;
var a,b,c,d,y,k:integer;
    z:array[1..100,1..100] of integer;
    x:array[1..100] of integer;
begin
clrscr;
c:=1;
randomize;
for a:=1 to 3 do
begin
for b:=1 to 4 do
begin
z[a,b]:=random(15);
x[c]:=z[a,b];
inc(c);
write(z[a,b],' ');
end;
writeln;
end;
writeln; writeln;
for c:=1 to 12 do write(x[c],' ');
for d:=1 to 12 do
for y:=1 to 12 do
if (x[d]=x[y]) and (d<>y) then
begin
writeln;inc(k);
end;
if k=0 then writeln('нема')
else writeln('є',k);
end.