{* Подсчет различных букв в слове *}

Unit SAMPLE01;
Interface
Implementation
Begin
 writeln('Подсчет различных букв в слове');
End.

Program pas86090;

Uses sample01.pas; {* Эту строку можно удалить *}
{ Составить программу подсчета различных букв в слове. }
Var {* В работе нам потребуются переменные: *}
  s : String;
  r : real;
  i : integer;
  j : integer;
  n : integer;
Begin
  r := 0;
  readln(s);
  For i := 1 To length(s) Do {* Увеличиваем i от 1 до length(s) с шагом 1 *}
  Begin
    n := 0;
    For j := 1 To length(s) Do {* Цикл для j => [1 .. length(s)] *}
    Begin
      If s[i] = s[j] Then
        inc(n); {* Прибавим к n единицу *}
    End;
    r := r + 1 / n;
  End;
  writeln('количество различных букв = ', r : 1 : 0);
End.