Поиск элемента в одномерном массиве из 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.