PROGRAM INCOMPLETO program 5.17; const NumMaxAlg=100; type indices=0..NumMaxAlg; vetor=array[indices] of Integer; var n, m, i, j, k: Integer; x : vetor; achou : Boolean; begin readLn(n); for i:=1 to n do Read(x[i]); ReadLn; i:=1; achou:=false; while (i<=n-1) and not achou do begin j:=i+1; while (j+m<=n) and not achou do if x[i] <> x[j] then begin j:=j+1; m:=m+1 end else begin achou:=true; k:=1; while (k<=m) and achou do if x[i+k]=x[j+k] then k:=k+1 else begin achou:=false; j:=j+1; m:=m+1 end end; i:=i+1 end end.