Дан массив целых чисел. Переписать его нечетные элемнты в другой массив такого же…

Program z10; var a,b: array[1… 1000]of longint; n,i,k: longint; beginread (n); for i: =1 to n dobeginread (a[i]); if (a[i] mod 2=1) then begink: =k+1; b[k]: =a[i]; end; end; for i: =1 to k dobeginwrite (b[i],'); end; end.