Составьте программу для поиска элемента массива.

• var a: array
  \[1\.\.100\]
  of integer;
• m, i, X, p: integer;
• begin
• m := 5; p := 0;
• for i := 1 to m do read\(a⟨1⟩\);
• readln\(X\);
• for i := 1 to m do
• if a
  \[i\]
  = X then begin
• p := i;
• break; end;
• if p <> 0 then writeln\('значение найдено в позиции ', p\)
• else writeln\('значение не найдено'\);
• end.