var
    tomb : array [1..5] of integer = (3, 5, 9, 4, 1);
    i, meret : integer;
begin
    meret := 5;
    i := 1;

    while (i <= meret) and ( tomb[i] <> 5) do
        i := i + 1;

    if i <= meret then WriteLn('5-ös helye: ', i);
end.