Программа для анализа последовательности на периодичность

 Uses Crt;
Type Vector = Array [1..99] of integer;
Var X : Vector; n,i,j,c,k : integer;p:boolean;
Begin
p:=true;
Repeat
ClrScr;
Write('n>1='); Readln(n);
Until n>1;
For i:=1 to n do begin
Write('X',i,' '); Readln(X[i]) end;
j:=2;i:=1;
While ((X[j]<>X[1]) and (j<=n)) do
j:=j+1;k:=j;
if (x[j]=x[1]) then begin
While (((j+1)<=n)and p) do begin
if (x[j+1]<>x[i+1]) then p:=false else c:=0;
j:=j+1;i:=i+1;
if (k mod i =0)then i:=1 else c:=0 end;
write(p) end else write('false');
readln;readln
 
End.

Program Kursyin4;
Uses Crt;
Type Vector = Array [1..99] of real;
Var X : Vector; i,j,t,n : integer;k:real;p:boolean;
f:file of real;
Begin
Assign(f,'massiv');
Rewrite(f);
p:=true;
Repeat
ClrScr;
Write('n>1='); Readln(n);
Until n>1;
For i:=1 to n do begin
Write('X',i,' '); Readln(k);
write(f,k ) end;
close(f);
Reset(f);
For i:= 1 to n do begin
read(f,x[i]);write(x[i]:8:2,' ') end;
writeln;
j:=2;
While ((X[j]<>X[1]) and (j<n)) do
j:=j+1;k:=j;t:=j-1;j:=j-1;
if (x[j+1]=x[1]) then begin
While ((j<n) and p) do
begin
j:=j+1;i:=1;k:=k+t;
While ((j<k-1)and p) do begin
if (x[j+1]<>x[i+1]) then p:=false;
j:=j+1;i:=i+1 end
end end else p:=false;
if p
then write('Hajordakanutyun@ ',t,' parberutyamb parberakan hajordakanutyun e')
else write('Hajordakanutyun@ parberakan che');
readln;readln;
 
End.