5 Исправьте ошибки в программе.
var
c, a : integer;
d : integer;
begin
c:=10;
a:= 6;
d:=2*c/(a+2;
writeln( 'При с = ' , c, '; Значение переменной d ' , = ,d);
end.

Везде, начиная с того что даже f написана не верно
вот рабочий код. Формулы брались на вики, потому что в ваших я сомневаюсь весьма

function F(x: real): real;
begin
    f := sqr(sqr(x)) * x + 3 * sin(x) - 3 * sqr(x) - 12;
end;

function FindRoot(a, b, epsilon: real): real;
begin
    while(abs(b - a) > epsilon) do
    begin
        a := b - (b - a) * f(b) / (f(b) - f(a));
        b := a + (a - b) * f(a) / (f(a) - f(b));
        writeln(a, ' ', b);
    end;
   
    FindRoot := b;
end;

begin
    writeln('x = ', FindRoot(0.5, 1.5, 0.001));
end.

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

1)
begin 
  ReadArrInteger(ReadInteger('n->')).Select(t->-t).Println;
end.

Пример:
n-> 5
7 -9 4 5 -20
-7 9 -4 -5 20

2)
begin
 var a:=ReadArrInteger(ReadInteger('n->')); var (f,l):=(a[0],a[a.Length-1]);
 Range(0,a.Length-1).ForEach(t->begin if a[t]<>0 then if a[t].IsEven then a[t]:=a[t]+f else a[t]:=a[t]+l;end);
 a.Println;
end.

Пример:
n-> 14
1 5 4 7 8 6 2 4 2 4 0 4 0 3
4 8 5 10 9 7 3 5 3 5 0 5 0 6

3)
begin
 var a:=ReadArrInteger(ReadInteger('n->')); var im:=a.IndexMax;
 If im<>a.Length-1 then a:=a[:im]+a[im+1:]+arr(0) 
                           else a:=a[:im]+arr(0); 
 a.Println;
end.

Пример(1):
n-> 5
1 2 5 3 4
1 2 3 4 0

Пример(2):
n-> 5
1 2 3 4 5
1 2 3 4 0