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

Варианты ответов и условие задания

1. var a: array [1..100] of integer;
2. m, i, X, p: integer;
3. begin
4. m := 5; p := 0;
5. for i := 1 to m do read(a[i]);
6. readln(X);
7. for i := 1 to m do
8. if a[i] = X then begin
9. p := i;
10. break; end;
11. if p <> 0 then writeln('значение найдено в позиции ', p)
12. else writeln('значение не найдено');
13. end.