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

programHelloWorld;

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 thenwriteln(n[i]);

end;