var 
    tomb : array [1..5] of integer = (3, 9, 3, 2, 6);
    keresett : integer;
    i, n : integer;
begin
    keresett := 3;
    n := 5;
    i := 1;
    while (i <= n) and (tomb[i] <> keresett) do
        i := i + 1;
    if i <= n then
    begin
        WriteLn('Van ilyen');
        WriteLn('Indexe: ', i);
    end
    else
        WriteLn('Nincs ilyen ertek');
    ReadLn();
end.