дан массив из 10 целых чисел. надо чётные числа увеличить в два раза а нечётные оставить без изменения

program znanija;var a: array[1..10] of integer;i: integer;beginfor i:=1 to 10 doread (a[i]);for i:=1 to 10 doif a[i] mod 2 =0 thena[i]:=a[i]*2;for i:=1 to 10 dowrite (a[i], '  ')end.