Zudina / KR_pascal / 2Ar_sym

const n=13;
A:array[1..n] of integer=(1,2,1,2,3,2,1,1,2,3,2,1,4);
var
i,j,i1,j1,max,k:integer;
BEGIN
max:=0;
for i:=1 to n-1 do
begin
j:=n;
while a[i]<>a[j] do j:=j-1;
i1:=i+1;
j1:=j-1;
k:=1;
while i1<=j1 do
if a[i1]<>a[j1] then continue else begin i1:=i1+1;j1:=j1-1;end;
k:=j-i+1;
if max<k then max:=k;
end;
writeln('max-',max );
END.