VAR
 S:String;
 Nd,i:BYTE;
BEGIN
 WriteLn('Enter the string:');
 ReadLn(S);
 Nd:=0;
 for i:=1 to Length(S)-1 do
  if S[i]=S[i+1] then Inc(Nd);
 WriteLn('Doubled symbol occurs ',Nd,' times');
 ReadLn;
END.

VAR
 S,x:Real;
 i:BYTE;

function X2np(X:Real; n:Byte):Extended;
Var i:Byte;
    Y:Extended;
BEGIN
  IF n=0 THEN X2np:=1 ELSE
  IF n=1 THEN X2np:=X ELSE
  BEGIN
    Y:=X;
    FOR i:=2 TO n DO Y:=Y*X;
    X2np:=Y;
  END;
END;

function Nfact(n:Byte):Extended;
VAR
  i:Byte;
  fact:Extended;
BEGIN
  IF n=0 THEN fact:=1 ELSE
    BEGIN
      fact:=1;
      FOR i:=1 TO n DO
        fact:=fact*i;
    END;
  Nfact:=fact;
END;

BEGIN
 Write('x= ');
 ReadLn(x);
 S:=0;
 for i:=1 to 13 do
  S:=S+X2np(x,2*i+1)*(2*i-1)/Nfact(2*i+1);
 WriteLn('Sum= ',S);
 ReadLn;
END.