program p2494; var n,m,sum,t,i:longint; a: array[1..1000005] of longint; begin readln(n); for i:=1 to n do readln(a[i]); t:=0; sum:=0; readln(m); for i:=1 to n do begin if(m=a[i]) and (t=0) then begin inc(sum); t:=i; end else if m=a[i] then inc(sum); end; writeln(t,' ',sum); end. /************************************************************** Problem: 2037 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/