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

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

program digits_plus_0;var s: string;

function ins(s:string):string;var k, p, l, err: integer;s1: string;begins1:=s;k:=0;l:=length(s);for i:integer:=1 to l dobeginval(s[i], p, err);if (err = 1) or (p = 0) then k:=k+1 //если символ не цифра (err=1) или нольelsebegink:=k + 2;insert(\'0\', s1, k);endend;s:= s1;ins:= send;

Beginwriteln(\'Введите строку, содержащую цифры\');readln(s);ins(s);writeln (ins(s))end.