var
    tomb : array [1..7] of integer = (8, 9, 3, 5, 4, 2, 7);
    i, n, ker : integer;
 
begin
	n := 7;
	ker := 5;
	
	i := 1;
	while((i<=n) and (tomb[i] <> ker)) do
		inc(i);
 
	if i<=n then 
		WriteLn('Van ilyen')
	else 
		WriteLn('Nincs');
end.