Написать программу к : завести в программе массив под именем tor из 7 элементов, элементы массива tor[2,1,2,1,2,1,2], вывести элементы массива на экран и подсчитать сумму элементов массива. выучить определения массива.

Куда уж проще, создаем массив, заполняем его, нужными числами
Создаем переменную в которую будем подсчитать сумму элементов массива S: integer
Пишем цикл для перебора каждого элемента
for I:=1 to 7 do
begin
S:=S+A[I]; //тут считаем сумму
write(a[i],' '); //выводим
end;