Var
 f:text;
  i,n:integer;
  s,s1:string;
begin;
assign(f,'text.txt');
 reset(f);
  while not(Eof(f)) do
   read(f,s);
 close(f);
n:=0;
while nlength(s) do
 begin;
  inc(n);
  for i:=0 to 9 do
   begin;
    str(i,s1);
     if s[n]=s1 then
      begin;
        delete(s,n,1);
        s1:=s1+s1;
        insert(s1,s,n);
        inc(n);
         end;
   end;
 end;
writeln(s);
end.

// PascalABC.NET 3.0, сборка 1128
begin
  var s:=ReadAllText('input.txt');
  Writeln(s);
  var so:='';
  for var i:=1 to s.Length do
    if s[i] in ['0'..'9'] then so+=s[i]+s[i]
    else so+=s[i];
  Writeln(so);
end.

Тестовое решение:
Сегодня 15 января 2016 года, московское время 19 часов 18 минут.
Сегодня 1155 января 22001166 года, московское время 1199 часов 1188 минут.