Массив, (дополнить алгоритм) Опции

[midss]

Дан массив из 49 элементов на интервале 1. . . 200. Найти среднее арифмит каждых третьих элементов.

Var A:array [1..20] of integer;  {Массив}
K,S,i: integer;                            {Прочие переменные}  
begin
for i:=1 to 49 do begin              {заполнил массив}
a[i]:=random(101)+1;
write(a[i]:5);                             {вывел}
end;

Не могу вывести формулу, которая будет отбирать каждый третий элемент.
Помогите пожалуйста...