Задача в паскале.Вывести на экран в порядке возрастания все цифры, не являющиеся цифрами данного десятичного натурального числа (переменной целого типа). Например, число 125657 не содержит цифры: 0, 3, 4, 8, 9.

Предыдущий
вопрос Следующий
вопрос

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.