Первый и последний элементы массива замените противоположными по знаку. нужна программа на паскале.

program kek;

var

 a: array of Integer;

 i, n: Integer;

begin

 //читаем размер массива

 read(n);

 //устанавливаем длину массива a равной n

 SetLength(a, n);

  //циклом считываем элементы массива

 for i := 0 to n-1 do

 begin

   read(a[i]);

 end;

 //изменяем первый и последний элементы массива

 a[0] := -a[0];

 a[n-1] := -a[n-1];

 //выводим измененный массив

 for i := 0 to n-1 do

   write(a[i], ' ');

end.

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 a[0] := -a[0];

 a[n - 1] := -a[n - 1];

 a.Println

end.