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

Question

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

---

Answer 1

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.

Comments

вывод как на фотографии нужен(т.е только 3 5) или можно как у меня?