Нужна помощь(Разработать алгоритм, нарисовать его блок-схему.)

[miron]

Помогите пожалуйся. Разработать алгоритм, нарисовать его блок-схему.
Даны целые числа а, n, x1 , …, xn (n > 0). Определить, каким по счету идет в последовательности x1 , …, xn член, равный а. Если такого члена нет, то ответом должно быть число 0.

[Stilet]

Ну выкладывай свои идеи (ато тема во Фриланс пойдет)

[-=<[Evklidd]>=-]

program pos;
var
a, n, i,c: integer;
ar: array [1..3000] of integer;
begin
write('a= ');
readln(a);
write('n= ');
readln(n);
for i:= 1 to n do
begin
write(i,'element: ');
readln(ar[i]);
end;
c:= 0;
for i:= 1 to n do
begin
if a = ar[i] then
begin
write(i,' ');
inc(c);
end;
end;
if c = 0 then
write('0');
readln;
end.

[miron]

Идеи поко нету, нужно подсказка (помощь)

[miron]

Спасибо -=<[Evklidd]>=- попробую нарисовать