Дан натуральный ряд от 1 до 100. изменить знак четных элементов ряда на противоположный в Паскаль пожалуста откликнитесь  

const N = 10; var a: array[1..N] of integer; i: integer; begin write('До замены: '); for i := 1 to N do begin a[i] := random(100); write(a[i], ' '); end; writeln;write('После замены: '); for i := 1 to N do begin if(a[i] mod 2 = 0)then a[i] := a[i] * (-1); write(a[i], ' '); end; end.