Задан номер мобильного телефона. Определить, какие цифры отсутствуют в этом номере.

Входные данные:

В единственной строке задан номер мобильного телефона.

Выходные данные:

В первой строке вывести количество отсутствующих в номере цифр. Во второй строке в порядке возрастания вывести отсутствующие цифры, разделенные пробелом.

//PascalABC.NET 3.2 сборка 1318Var  SeNotExist:set of char=['0','1','2','3','4','5','6','7','8','9'];  ArrNotExist:array of char;  count,i:integer;  Num:string;begin  readln(Num);  for i:=1 to length(Num) do    SeNotExist-=[Num[i]];  foreach var x in SeNotExist do    begin      inc(count);      setlength(ArrNotExist,count);      ArrNotExist[count-1]:=x;    end;  sort(ArrNotExist);  writeln(count);  ArrNotExist.Print(' ');end.Пример ввода:81233214554Пример вывода:40 6 7 9