Помогите с подпрограммами, умные этого форума на вас надежда Опции

[X-JAY]

Мне срочно на до сделать одну задачку до завтра,чтобы получить зачет по информатике. Плохо понимаю я Pacal, так что решил обратиться к специалистам!
Мне нужно: Вычислить величину

 
          2k                k   
          ∑ |Xi|, если  ∑ |Xi|<1;
          i=k+5            i=1        
  t =    k-5                 k 
           ∑ |Xi|, если   ∑ |Xi|≥1
           i=1               i=1
 В программе использовать подпрограмму для получения суммы        
m
∑ |Xi|, значение k,n и элементов массива Xi(i=1,2,…,2k) ввести в процессе выполнения программы
i=1

Нужно пользовать подпрограммами Function, Sub, Gosub.но было бы здорово хотя бы один вид!!!
Заранее огромное спасибо!!!