составьте программу ,увеличивающую четные элементы линейного массива A[1..N] на 1

Vari,n:integer;a:array [1..1000] of integer;BeginRead(n);For i:=1 to n doRead(a[i]); //вводим элементы массиваFor i:=1 to n do beginIf a[i] mod 2 = 0 then inc(a[i]); //прибавляем 1 к четным элементамWrite(a[i], ' ');End;End.