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

Так что не смешите людей такими заявлениями... учите матчасть.

ABC.Net 3.2 функционально практически С#

я соц.гум и не понимаю информатику

Тогда Вам вообще не надо её заниматься, чтобы время не тратить

я понимаю, но это следует обьяснить составителем нашей программы

Вот и объясните)))

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=кол-во;

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