Дан А (N) обнулить каждый второй элемент, вывести А (N)

Program Pr1; uses crt; const n=20; var mas: array[1… n] of integer; i: integer; Beginclrscr; randomize; for i: =1 to n do mas[i]: =random (10); for i: =1 to n do write (mas[i]); writeln; for i: =1 to n do if i mod 2=0 then mas[i]: =0; for i: =1 to n do write (mas[i]); end.