Составить программу, которая заполняет моссив A(n) в порядке 1 2 3 1 2 3

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin   var n:=ReadInteger('n=');   SeqGen(n,1,x->x mod 3 +1).Println end. Пример n= 15 1 2 3 1 2 3 1 2 3 1 2 3 1 2 3