Жак Арсак Программирование игр и головоломок

const maxLen=100;
z=Ord('0');type  ir=Integer;sg=String;bu=Boolean;l=array  [0..maxLen]  of  ir;function nn(n:ir):l;var r:l;begin r[0]:=0;
repeat inc(r[0]);r[r[0]]:=n mod 10;n:=n div 10;until n=0;nn:=r;end;function ns(s:sg):l;var r:l;i:ir;begin r[0]:=Length(s
);for i:=1 to Length(s) do r[Length(s)+1-i]:=Ord(s[i])-z;ns:=r;end;function sl(a:l):sg;var s:sg;i:ir;begin s:='';for i:=
a[0] downto 1 do s:=s+chr(z+a[i]);sl:=s;end;function sc(a, b : l):bu;var i:ir;begin if a[0]>b[0] then sc:=True else if a
[0]<b[0]  then  sc:=False else begin for i:=a[0] downto 1 do if a[i]>b[i] then begin sc:=True;Exit;end else if a[i]<b[i]
then begin sc:=False;Exit;end;sc:=True;end;end;procedure an(var a:l;n:ir);var i,d:ir;begin i:=0;d:=0;repeat inc(i);if i>
a[0]  then  begin  a[0]:=i;a[i]:=0;end;d:=d+a[i]+n mod 10;n:=n div 10;a[i]:=d mod 10;d:=d div 10;until(n=0)and(d=0);end;
procedure  y(var a,b:l);var i,d:ir;begin i:=0;d:=0;repeat inc(i);if i>a[0] then begin a[0]:=i;a[i]:=0;end;d:=d+a[i];if i
<=b[0]  then d:=d+b[i];a[i]:=d mod 10;d:=d div 10;until(i>=b[0])and(d=0);end;procedure su(var a,b:l);var i:ir;z:bu;begin
z:=False;for i:=1 to b[0] do begin if z then dec(a[i]);dec(a[i],b[i]);z:=a[i]<0;if z then inc(a[i],10);end;i:=b[0];while
z  do  begin inc(i);dec(a[i]);z:=a[i]<0;if z then inc(a[i],10);end;while(a[0]>1)and(a[a[0]]=0)do dec(a[0]);end;procedure
de(var  a:l);var  i:ir;z:bu;begin  z:=True;i:=0;while  z do begin inc(i);dec(a[i]);z:=a[i]<0;if z then inc(a[i],10);end;
while(a[0]>1)and(a[a[0]]=0)do dec(a[0]);end;procedure mu(var a:l);var i:ir;begin if(a[0]=1)and(a[1]=0)then Exit;inc(a[0]
);for i:=a[0] downto 2 do a[i]:=a[i-1];a[1]:=0;end;procedure di(var a:l);var i:ir;begin for i:=a[0] downto 1 do begin if
odd(a[i])then inc(a[i-1],10);a[i]:=a[i] shr 1;end;while(a[0]>1)and(a[a[0]]=0)do dec(a[0]);end;
var a,b,u:l;s:sg;p,d:ir;begin ReadLn(s);a:=ns(s);p:=a[0] div 2;if p*2 < a[0] then inc(p);b:=nn(0);u:=nn(0);repeat dec(p)
;d:=0;if  p*2+2<=a[0] then d:=a[p*2+2]*10;d:=d+a[p*2+1];mu(b);mu(b);an(b,d);mu(u);an(u,1);while sc(b,u)do begin su(b,u);
an(u,2);end;de(u);until p=0;di(u);WriteLn(sl(u));end.