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

function add(s:string):string;var i,d:integer;begind:=length(s);i:=1;while i<=d*2 do begininsert('0',s,i+1);inc(i,2);end;add:=s;end;var s:string;beginreadln(s);writeln(add(s));end.