Поиск элемента в одномерном массиве из 12 элементов, который равен заранее заданному некоторому числу.(на языке паскаль)

Const n=12; var a: array [1..n] of integer; p,i: integer; begin for i: =1 to n do begin writeln('введите элемент №',i); readln(a[i]); end; writeln('введите число для поиска'); readln(p); for i: =1 to n do if a[i]=p then  writeln('элемент ',p,' находится на позиции №',i); end.

10101001(2)=169(10)



                    

1)См рисунок,он из интернета,ибо я могу нарисовать,но будет криво(
2) путь от диска C:/ до файла. К примеру, файл информатика.docx в папке "Школа" на рабочем столе будет иметь такой путь: C:Users\%username%DesktopШколаинформатика.docx. Это на виндовс
3)
 C:Участники
 C:КонференцияУчастники
 C:КонференцияРегионыУчастники
 C:КонференцияРегионыСпискиУчастники

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Range(0,100,2).Println
end.

Результат
0 2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50 52 54 56 58 60 62 64 66 68 70 72 74 76 78 80 82 84 86 88 90 92 94 96 98 100