вводится число А и 7 целых чисел, определить, каким по счету в последовательности будет число а , если его нет, то вывести ноль
 решите пожалуйста способом паскаля 

Program pr;uses crt;Var a,b,x1,i:integer;Beginx1:=0;Writeln('vvedite chislo');readln(a);Writeln('vvedite posledovatelnost');For i:=1 to 7 doBeginreadln(b);if a=b then x1:=i;end;Writeln('¹=',x1);readln;end.

Если номер последовательность выводить нужно каждый раз когда встречается то число тогда так

Program pr;uses crt;Var a,b,x1,i:integer;Beginx1:=0;Writeln('vvedite chislo');readln(a);Writeln('vvedite posledovatelnost');For i:=1 to 7 doBeginreadln(b);if a=b then Writeln('¹=',i);end;readln;end.