{* Задача 85 *}

Unit ZADACH85;
Interface
Implementation
Begin
 writeln('Дано натуральное n. Сколько различных цифр встречается в его десятичной записи?');
End.

Program zadach85;

Uses zadach85.pas; {* Эту строку можно удалить *}
Uses Crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  n : longint;
  a : Array [0..9] Of byte;
  i : byte;
  k : byte;
Begin
  ClrScr; {* Стираем всё с экрана *}
  Write('Введите число...');
  Readln(n);
  For i := 0 To 9 Do {* Цикл для i => [0 .. 9] *}
    a[i] := 0;
  While n0 Do
  Begin
    i := n Mod 10;
    Inc(a[i]); {* Увеличиваем a[i] на 1 *}
    n := n Div 10;
  End;
  k := 0;
  For i := 0 To 9 Do {* Цикл для i => [0 .. 9] *}
    If a[i]0 Then
      inc(k); {* Прибавим к k единицу *}
  Writeln('В числе ', k, ' цифр.');
End.