sample01.PAS

{* Подсчет букв в слове *}

Unit SAMPLE01;
Interface
Implementation
Begin
 writeln('
var s:string; r:real; i, j, n:integer;
begin r:=0; readln(s); for i:=1 to length(s) do begin n:=0; for j:=1 to length(s) do begin if s[i]=s[j] then inc(n); end; r:=r+1/n; end; writeln('количество различных букв = ', r:1:0);
end.
'
);
End.

Program pas;

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 на 1 *}
    End;
    r := r + 1 / n;
  End;
  writeln('количество различных букв = ', r : 1 : 0);
End.