Сумма индексов, кратным 3 Опции

[Gl00M]

В целочисл.массиве А от 1 до 22 вычислить сумму элементов с индексами,кратными 3
Делаю вот так:

Program ms;
 uses Crt;
 const n=22;
 var a:array[1..n] of integer;
     i:word;
     s:integer;
Begin
 ClrScr;
 randomize;
 s:=0;
 For i:=1 to n do begin
  a[i]:=50-random(100);
  write(a[i]:4);
  if i div 3 then s:=s+a[i];
 end;
 writeln;
 writeln('Summa = ',s);
 readln;
End. 

в if i div 3 then s:=s+a[i]; выдается ошибка...
как определить кратность?

[Gl00M]

Ну, на винограде вот так:

Program ms;
 uses Crt;
 const n=22;
 var a:array[1..n] of integer;
     i:word;
     s:integer;
Begin
 ClrScr;
 randomize;
 s:=0;
 For i:=1 to n do begin
  a[i]:=50-random(100);
  write(a[i]:4);
  if i mod 3=0 then s:=s+a[i];
 end;
 writeln;
 writeln('Summa = ',s);
 readln;
End. 

Но if i mod 3=0 then s:=s+a[i]; не считает сумму!