program ex(input,output); label 100; var i,j,k,m,n, flag:integer; a,b,c:array[0..10000] of integer; begin read(m); read(n); for i:=0 to m-1 do read(a[m-1-i]); for i:=0 to n-1 do read(b[n-1-i]); for i:=0 to n-m do c[i]:=0; writeln('start'); readln; for j:=n-1 downto m-1 do begin flag:=0; {*** to see if a can be subtracted from b[j..j-m+1] ***} for i:=m-1 downto 0 do if b[j-m+1+i]<>a[i] then begin if b[j-m+1+i]