Безотлагательно...Дан массив s из n чисел, значения частей которых находится на

Const n=10;
var s:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 s[i]:=random(401);
 write(s[i]:5);
 end;
writeln;
p:=1;
for i:=1 to n do
 if (s[i] mod 2=0)and(i mod 2lt;gt;0)
  then s[i]:=-s[i];
writeln('Измененный массив:');
for i:=1 to n do write(s[i]:5);
writeln;
end.

Пример:
Массив A:
 75 55 240 33 312 98 126 88 161 123
Модифицированный массив:
 75 55 -240 33 -312 98 -126 88 161 123