Решите: дан массив из N целых элементов

Vara: array[1… 9999] of integer; n,i: integer; beginreadln (n); for i: =1 to n dobeginreadln (a[i]); if a[i] mad 2=0 then a[i]: =10; end; for i: =1 to n dowrite (a[i],'); end. Надеюсь на Лучший ответ