паскаль. тема-строковые процедуры. задание: в исходном тексте приписать к каждой цифре ноль.

var s: string;
    i: integer;
begin
  write('строка: ');  readln(s);
  i:=1;
  repeat
    if s[i] in ['0'..'9'] then 
    begin
      i:=i+1;
      insert('0',s,i);
    end;
    i:=i+1;
  until i>length(s);
  writeln('новая строка: ',s);
end.

ввод - вывод

строка: в корзине лежали 18 яблок и 15 апельсин
новая строка: в корзине лежали 1080 яблок и 1050 апельсин