Заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку заменив все элементы стоящие на четных местах на число 5. На языке паскаль

var a:array[1..15] of integer;i:integer;beginfor i:=1 to 15 do begina[i]:=random(-10,10);write(a[i],' ');end;writeln;for i:=1 to 15 do beginif not odd(i) then a[i]:=5;write(a[i],' ');end;end.

program chik;const n=15;var a:array[1..15]of integer;i:integer;beginfor i:=1 to n doread(a[i]);for i:=1 to n dowrite(a[i],' ');for i:=1 to n doif(i mod 2=0)then write(5,' ')else write(a[i],' ');end.