Помогите пожалуйста с заданием
1. В программе используется следующий массив под общим именем А: Индексы элементов 1 2 3 4 5 Значения элементов 9 8 7 6 5 a) Опишите этот массив, используя образец VAR имя_массива: ARRAY [N1..N2] OF базовый тип; b) Выпишите в тетрадь равенства, подставляя вместо многоточия нужные числа: а[2]= …, а[3]=…, а[…]=6. 2. Напишите последовательность команд для обмена значениями b[11] и b[14]. 3. Напишите программу, которая находит сумму всех элементов массива. 4. Напишите программу, печатающую отрицательные элементы массива. 5. Отрицательные элементы массива возвести в квадрат, положительные – в третью степень.

Спасибо

1.  a) var a: array[1..5] of integer     b) а[2]=8, а[3]=7, а[4]=6. 2. c:=b[11]; b[11]:=b[14]; b[14]:=c;3. var  a: array[1..10] of integer;  s,i: integer;begin  s:=0;     for i:=1 to 10 do begin     read (a[i]);    s:=s+a[i];  end;    writeln (s);end.4.var  a: array[1..10] of integer;  i: integer;begin    for i:=1 to 10 do begin     read (a[i]);    if a[i]<0 then      writeln (a[i])  end  end.5.var   a: array[1..10] of integer;   i: integer;begin    for i:=1 to 10 do begin       read (a[i]);       if a[i]<0          then a[i]:=a[i]*a[i]          else a[i]:=a[i]*a[i]*a[i];       write (a[i]:4)    endend.