Необходимо срочно, помогите

Program S1;  const n=10;  var   S: array[1..n] of integer;   C: array[1..n] of integer;   i,t:integer;begin  write('Начальный массив: ');  for i:=1 to n do   begin    S[i]:=random(15);

    write(S[i],' ');   end;      writeln;     for i:=1 to n do   begin   S[i]:=абс(S[i]);   write(S[i],' ');  end;    writeln;    for i:=1 to n do  begin   if S[i] mod 3 = 0 then    S[i]:=S[i] mod 2   else   S[i]:=S[i]+2;   write(S[i],' ');   end;      writeln;      for i:=1 to n do   if (S[i] mod 4 = 0) and (i mod 2 = 0)then     write(i,' ');  end.