По программированию заполнить массив случайным образом и вывести на экран только элементы остаток от деления на 3 которых равен 1

program HelloWorld;

var n:array [1..100] of integer;

var i: integer;

begin

 for i:=1 to 100 do  

       n[i] := random(1000);

 for i:=1 to 100 do  

      if n[i] mod 3 = 1 then writeln(n[i]);

end;