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