Задание прикреплено. Надеюсь на помощь.
Все в Pascal

const

n=5;

var

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

i: integer;

begin

for i:=1 to n do

read(a[i]);

writeln('Массив:');

for i:=1 to n do

write(a[i],' ');

writeln;

for i:=2 to n do

if (a[i]=a[1]) then

writeln('Элемент массива, совпадающий с первым:', i);

end.