CODE JEWEL

Tuong tuong day so la mot soi day chuyen hinh tron>>
VD INP 222222335533
OUT 2
Ghi ra so cach dat khoa sao cho chia doi day truyen thanh 2 nua giong nhau
Giai thich (2) (2)(2)(3)(3)(5) (5)(3)(3)(2)(2)(2)

var f1,f2:text;
s,x,z:string;
i,j,k,dem:longint;
begin
assign(f1,`JEWEL.INP`);reset(f1);
assign(f2,`JEWEL.OUT`);rewrite(f2);
while not eof(f1) do
begin
readln(f1,s);
dem:=0;
if length(s) mod 2<>0 then writeln(f2,0)
else begin
k:=length(s) div 2;
for i:=1 to length(s) do s:=s+s[i];
i:=0;
repeat
i:=i+1;
x:=copy(s,i,k);
z:=copy(s,i+k,k);
for j:=length(z) downto 1 do z:=z+z[j];
delete(z,1,k);
if x=z then inc(dem);
until i=length(s) div 2;
writeln(f2,dem);
end;
end;
close(f1);close(f2);
end.