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

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.