Текст задания

Подсчитать количество различных цифр в десятичной записи натурального числа.

Исходный код программы

Program MN_9;
uses crt;
var
s:string;
o: set of '0'..'9';
i,num: integer;
begin
clrscr;
num:=0;
Writeln('vvedite chislo:'); {вводим число}
Readln(s);
for i:=1 to length(s) do {цикл для посимвольного перебора введеного числа}
 begin
  if not (s[i] in o) then
   begin
    num:=num+1;
    include(o,s[i]);		{если данного символа нет во множестве о, то добавляем его туда и увеличиваем счетчик на 1}
   end;
 end;
Writeln('kolichestvo razlichnih cifr:',num); {выводим ответ}
readln;
end.

Результат работы программы