Дан массив из 8 элементов 4:-2:-4:0:2:3:1:5 найти позицию элемента равного двум

Массив заполнен сразу

const a: array[1 ... 8] of integer = (4,-2,-4,0,2,3,1,5) ;

var i:integer;

begin

for i:=1 to 8 do

if a[i]=2 then writeln ('Pozitciya elementa ravnogo 2 = ', i) ;

end.

Массив заполняется с клавиаутры

var

a: array[1 ... 8] of integer;

i:integer;

begin

for i:=1 to 8 do

readln (a[i]) ;

for i:=1 to 8 do

if a[i]=2 then writeln ('Pozitciya elementa ravnogo 2 = ', i) ;

end.