Паскаль abc.net самой старой версии ( нужно все расписать)

метод решения : структурные изменения набора элементов массива (кроме сортировки)

поменять местами половинки массива (если число элементов n четное, то 1ый элемент надо поменять с (n/2+1), 2ой- с (n/2+2) и т.д.; если число элементов n нечетное , то центральный элемент остается на месте)

(-) - неверное высказывание. (+) - верное.
допустим, что в 1) 1(-), 2(+) ( Вася не первое, Юра второе)
значит:
2) Саша не второе "2 - Юра" => Вася последнее.
3) Иван не второе "2 - Юра" => Гриша третье.
4) Гриша не первое "Гриша - 3" => Юра четвертое.
Но Юра не может быть и на втором и на четвёртом месте.
Вывод: 1) 1(+), 2(-) ( Вася - 1, Юра не 2).
Значит:
2) Вася не последнее "Вася - 1" => Саша - 2.
3) Иван не второе "Саша - 2" => Гриша - 3.
4) Гриша не первое "Гриша - 3" => Юра - 4.
5) Юра четвёртое => Иван не второе.
ответ: Вася -1, Саша - 2, Гриша - 3, Юра - 4, Иван - 5

Исходя из вашего запроса:
без отрицания k
#include <iostream>
using namespace std;
int main()
{   
int a,k,s,x;
 for (k=0; k<20; k++)
{       
s +=((-1)*(k+1)*x^k)/3^k;   
}   
cout << s << endl;   
system("pause"); // или _getch();
return 0;
}

с отрицанием k
#include <iostream>
using namespace std;
int main()
{   
int a,k,s,x;   
for (k=0; k<20; k++)   
{       
s +=((-1)*(k+1)*x^k)/3^k;   
}   
cout << s << endl;   
system("pause"); // èëè _getch();   
return 0;
}
и формулируйте вопрос корректнее. 
в обоих решениях k=0 изначально