замените все элементы массива ,стоящие на позиции кратной 3, на 0

var a:array[1..100] of integer; i,n:integer; begin writeln('Введите количество элементов массива'); read(n); writeln('Введите элементы массива'); for i:=1 to n do begin read(a[i]); if i mod 3 = 0 then a[i]:=0; end; for i:=1 to n do write(a[i],' '); end.