Создать массив, состоящий из троек подряд идущих одинаковых элементов.

program test;var  a:array[1..100] of integer;  i,n:integer;begin  randomize;  for i:=1 to 99 do begin    n:=random(1,30);    if i mod 3 = 0 then begin      a[i]:=n;      a[i-1]:=n;      a[i-2]:=n;          end;      end;  for i:=1 to 99 do writeln(a[i]);end.