Ввести строку из текстового файла. Продублировать в ней все цифры. Остальные символы оставить без изменения.          PascalABC.Net

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 n<>length(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 минут.