Например, так:
Код:
Const
N=11;
A:Array[1..N] of Integer=(1, 3, 4, 6, 2, 4, 6, 8, 1, 3, 5);
Var
i:Integer;
flag,flag1:boolean;
Begin
for i:=1 to N do write(A[i],' ');
writeln;
i:=0;
flag1:=false;
flag:=true;
Repeat
Inc(i);
repeat
if (A[i+1]-A[i])=(A[i+2]-A[i+1]) then
begin
flag1:=true;
if flag then
begin
write(A[i],' ',A[i+1],' ',A[i+2]);
flag:=false;
end
else
write(' ',A[i+2]);
if i<N-2 then Inc(i);
end;
until (i>=N-2) or ((A[i+1]-A[i])<>(A[i+2]-A[i+1]));
if i<N-2 then
begin
if flag1 then
begin
writeln;
flag1:=false;
end;
flag:=true;
end;
Until i>=N-2;
Readln
End.