Написать в Паскаль программу для решения следующей задачи. Вводится строка, состоящая только из цифр без нуля. Написать пользовательскую функцию, которая возвращает строку, добавляя после каждого символа символ '0'.

Можно вводить строку, содержащую пробелы и другие символы. Функция добавляет нули только после цифр 1 ... 9.

program digits_plus_0;

var s: string;

function ins (s:string) : string;

var k, p, l, err: integer;

s1: string;

begin

s1:=s;

k:=0;

l:=length (s);

for i:integer:=1 to l do

begin

val (s[i], p, err);

if (err = 1) or (p = 0) then k:=k+1 / /если символ не цифра (err=1) или ноль

else

begin

k:=k + 2;

insert ('0', s1, k);

end

end;

s: = s1;

ins: = s

end;

Begin

writeln ('Введите строку, содержащую цифры');

readln (s);

ins (s);

writeln (ins (s))

end.