1) *
******
*****
2)**
т.к. тут 0, то ничего нет
****
***
по риснку увиидшь - то что в середине - это объединение и пересечение множеств
Var
s: string;
i, n: integer;
c: char;
b:boolean;
begin
readln(n);
s := inttostr(n);
for c := '0' to '9' do
begin
b := true;
for i := 1 to length(s) do
if s[i] = c then begin
b := false;
break;
end;
if b then writeln(c);
end;
end.