А)Составить программу, которая увеличивает в 10 раз все элементы массива. б) заменяет все отрицательные
элементы их индексами.
Сделать нужно и а и б.
Через паскаль.
Очень прошу, помогите пожалуйста.
Прошу, пожалуйста помогите, срочно, очень надо.

//PascalABC.NET 3.2 сборка 1318

//а

begin
  writeln(Введите размерность:);
  var n:=ReadInteger();
  writeln(Введите массив:);
  var ar:=ReadArrInteger(n);
  ar.Transform(x -gt; x*10);
  ar.Print;
end.

//б

begin
  writeln(Введите размерность);
  var n:=ReadInteger();
  writeln(Введите массив:);
  var ar:=ReadArrInteger(n);
  for var i:=0 to n-1 do            //индексация с 0
    if ar[i]lt;0 then ar[i]:=i;
  ar.Print;
end.