Прикреплено. надеюсь на . все в 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.