Задача №18. Составить программу, которая по задаваемому целому числу N (длинное целое) находит какие различные цифры используются при его записи и выводит их на экран дисплея. Например: число 10120. Используются цифры 0, 1 и 2.

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.