program Xau_Tuan_Hoan;
uses crt;
var s,s1:ansistring;
    i,kt,L:longint;
function Kiemtra(ss:ansistring):boolean;
var j:longint;
begin
     j:=1;
     kiemtra:=true;
     while j<=L do
     if copy(s,j,length(ss))<>ss then
          begin
               exit(false);
               break;
          end
     else 
          j:=j+length(ss);
end;
begin
     textcolor(lightgreen);
     write('Nhap xau can kiem tra: '); readln(s);
     s1:=''; kt:=0; L:=length(s);   
     for i:=1 to (L div 2) do
     if (L mod i=0)and(s[1]=s[i+1]) then    //Giam so luot ktra
     begin
          s1:=copy(s,1,i);
          if KiemTra(s1)=true then
          begin
               inc(kt);
               writeln('Xau tuan hoan');
               writeln('Chu ky: ',s1);
               write(L div i,' lan');
               break;
          end;
     end;
     if kt=0 then write('Xau khong tuan hoan');
     readln;
end.