a:array[1..10,1..15] of integer;
i,j,k,x:integer;
begin
read(x);
k:=0;
for j:=1 to 15 do
for i:=1 to 10 do
a[i,j]:=random(101);
if a[i,j]=x then k:=k+1;
write(k);
end.
a:array[1..10,1..15] of integer;
i,j,k,x:integer;
begin
read(x);
k:=0;
for j:=1 to 15 do
for i:=1 to 10 do
a[i,j]:=random(101);
for j:=1 to 15 do
for i:=1 to 10 do
if a[i,j]=x then k:=k+1;
write(k);
end.