Вводится число А и 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.