[Pascal] Сформировать новый одномерный массив, в котором элементы массива, стоящие на позиции кратной трем, будут заменены средним арифметическим значением этих элементов

[Dianam]

Элементы одномерного массива T(K) получаются расчетом по формуле T(K)= tg(2K)-Kcos(K), где K - позиция элемента в массиве T(K). Необходимо сформировать новый одномерный массив В(K), в котором элементы массива T(K), стоящие на позиции кратной трем, будут заменены средним арифметическим значением этих элементов.
Заранее спасибо!!!

[newerow1989]

const k=8;
var t,b:array[1..k] of real;
    i,csr:integer;
    sr:real;
begin
   For i:=1 to k do
   begin
      t[i]:=Tan(2*i)-i*Cos(i);
      Write(t[i]:5:3,'  ');
   end;
   Writeln;
   csr:=0;
   sr:=0;
   For i:=1 to k do
      If i mod 3=0 then
      begin
         sr:=sr+t[i];
         Inc(csr);
      end;
   sr:=sr/csr;
   For i:=1 to k do
   begin
      b[i]:=t[i];
      If i mod 3=0 then
         b[i]:=sr;
      Write(b[i]:5:3,'  ');
   end;
   Writeln;
   Readln;
end.