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

Function add(s:string):string;
var i,d:integer;
begin
d:=length(s);
i:=1;
while i<=d*2 do begin
insert('0',s,i+1);
inc(i,2);
end;
add:=s;
end;

var s:string;
begin
readln(s);
writeln(add(s));
end.