с клавиатуры вводетьмя массиа из n целых чисел,составить программу и вывести на экран все элементы массива.которые стгят на не четных номерах и найти их сумму

const n=5;var a:array[1..n] of integer;i,p:integer;beginfor i:=1 to n dobeginwrite ('Введите ',i,' элемент массива: ');readln (a[i]);end;WRITELN;write ('Массив: ');for i:=1 to n do if i mod 2 <> 0 thenbeginwrite (a[i],' ');p:=p+a[i];end;WRITELN;write ('Сумма = ',p);end.