В заданном массиве к четным элементам прибавить…

const n=5; var m: array[1… n] of integer; i,a,b: integer; beginreadln (a,b); for i: =1 to n do readln (m[i]); for i: =1 to n doif i mod 2=0 then m[i]: =m[i]+aelse m[i]: =m[i]+b; for i: =1 to n dowriteln ('m[', i,']=', m[i]); end.