Дан массив из элементов вывести на экран Каждый третий элемент масива

Program massiv;

const N=10;

var i:integer;

mas:array[1 ... N]of integer;

begin

randomize;

for i:=1 to N do

begin

mas[i]:=random (100) ;

write (mas[i],' ') ;

end;

writeln (' ') ;

for i:=1 to N do

begin

if i mod 3=0 then

write (mas[i],' ') ;

end;

end.