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

//PascalABC.NET 3.2 сборка 1318

Var
  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
Пример вывода:
4
0 6 7 9