var
flag:array['0'..'9']of boolean;
n:string;
i:integer;
j:char;
BEGIN
write('Введите целое число: ');
readln(n);
for i:=1 to length(n) do
for j:='0' to '9' do if n[i]=j then flag[j]:=true;
write('Введеном числе используются цифры:');
for j:='0' to '9' do if flag[j] then write(' ',j);
END.