Строковый тип(PascalABCNET)

[FlayGlam]

Вводится строка произвольного текста, в котором есть и цифры. Удвоить каждую цифру.

[newerow1989]

var s:string;
    i:integer;
begin
   Write('s = '); Readln(s);
   For i:=Length(s) downto 1 do
      If (s[i]>='0') and (s[i]<='9') then
         Insert(s[i],s,i);
   Writeln(s);
   Readln;
end.