Я тут еще подумал - можно и без преобразования в числовой массив, т.е. работать со строками и символами. Тогда получится еще короче:
Код:
program PodchetNumber;
const
m='0123456789';
var
Number:string;
i,j:Integer;
b:Boolean;
BEGIN
writeln('Vvedite luboe celoe chislo dlinnou ne bolee 5 ');
readln(Number);
Writeln('Otsutstvujut cyfri:');
For i:=1 to 10 do
begin
b:=true;
for j:=1 to Length(Number) do
if m[i]=Number[j] then b:=false;
if b then write(m[i]);
end;
Readln;
END.