Pascal :

var n,i,j,m,t:longint; a:real; s:array [1..12414] of longint;
begin
    read(n);
    for i:=1 to n do read(s[i]);
    read(m);
    for i:=1 to n do if s[i]=m then t:=13;
    if t=13 then write(m) else write('no');
end.