Составить программу, которая заполняет моссив 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

Program massiv123; 
const n=30; 
Type massiv=array[1..n] of integer; 
var i:integer; a:massiv; 
begin 
for i:=1 to n do 
if i mod 3=0 then a[i]:=3 
             else a[i]:=1; 
for i:=1 to n do 
if a[i]=3 then a[i-1]:=2; 
write('Массив: '); 
for i:=1 to n-1 do 
write(a[i],','); 
write(a[n],';'); 
end.

Если надо изменить кол-во цифр, то изменяйте в const n=кол-во;

//я писал этот унылый код полтора часа. Полтора часа, Карл! Я слишком расслабился.
#include <iostream>
using namespace std;
int k=2;

bool StrangeSeq(int n){
     if (k<n){
              if(n%k==0){
                         cout<<"false";
                         return false;
                         }
                         k++;
                         StrangeSeq(n);
                         }
                         else
                         {
                             cout<<"true";
                             return true;
                             }
}
                
int main(){
    int n;
    cin>>n;
    StrangeSeq(n);
    cin.get();
    cin.get();
}

Однажды Ослик не знал чем заняться. Все его друзья уехали кто куда: кто к бабушке в деревню, кто на море теплое, а кто вообще в лес, ягоды собирать. И стало ослику скучно. Но вот он увидел книгу с ноутбуком, и думает. Думает, что бы выбрать. Если выберет книгу, то быстро ее прочитает и это ему не так тем более она скучная. Вот ноутбук другое дело - там и поиграть можно, и с друзьями пообщаться, и спросить что-нибудь в интернете, да узнать что-нибудь новое. Вот ослик и выбрал ноутбук. И стал играть в нем в игры. 
Так несколько лет. Ослик все играл, да играл, а его друзья уже давно себе нашли работу, завели семью и все у них хорошо. А ослик так и потратил половину своей жизни, а в дальнейшем и всю жизнь, на игру. Так что не играйте в игры, а учитесь, развивайтесь и читайте книги! Не будьте осликами.