Дан одновременный одночисленный масив вывести масив на экран строку элементы…

Program chik; var a: array[1… 1000]of integer; var n,i: integer; beginread (n); for i: =1 to n dobeginread (a[i]); end; for i: =1 to n dobeginif (i mod 2=0) then a[i]: =0; end; for i: =1 to n dobeginwrite (a[i],'); end; end.