program task;
var
number, i: integer;
digit: string;
begin
write('Enter a number: ');
readln(number);

writeln('Digits not present in the number:');

for i := 0 to 9 do
begin
str(i, digit);
if Pos(digit, IntToStr(number)) = 0 then
writeln(i);
end;
end.