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.

const LIMIT = 500;
var i,j,lim : word;

begin { основная программа }
   writeln; {перевод строки, начинаем с новой строки}
   for i:=1 to LIMIT do begin
       j:=2; lim:=round(sqrt(i));
       while (i mod j <> 0) and (j <= lim) do inc( j );
       if (j > lim) then write( i,' ' );
   end;
end.

var a:array[1..10] of integer;
s:longint;
i,n:integer;
begin
s:=0; n:=0;
writeln('введите 10 элементов массива');
for i:=1 to 10 do begin
readln( a[i] );
s:=s+a[i]; inc(n);
end;
writeln( 'Среднее арифметическое в массиве = ', s/n );
end.

const n = 10; { количество элементов в массиве }
var a:array[1..n] of integer;
     i,j,x:integer;
begin
      writeln('введите ',n,' элементов массива');
      for i:=1 to n do readln( a[i] );

      for i:=1 to n-1 do begin
          for j:=i+1 to n do begin
            if a[i]>a[j] then begin
               x:=a[i]; a[i]:=a[j]; a[j]:=x;
            end;
          end;
      end;
      writeln('после сортировки:');
      for i:=1 to n do writeln( a[i] );
end.

var a:array[1..10] of integer;
     x:integer;
     i:integer;
begin
      writeln('введите 10 элементов массива');
      for i:=1 to 10 do readln( a[i] );
      x:=a[10];
      for i:=10 to 2 do begin
        a[i]:=a[i-1];
      end;
      a[1]:=x;
      writeln('после сдвига:');
      for i:=1 to 10 do writeln( a[i] );
end.

var a:array[1..10] of integer;
     c,d:integer;
     i:integer;
begin
      writeln('введите 10 элементов массива');
      for i:=1 to 10 do readln( a[i] );
      writeln('введите интервал C и D');
      readln( c,d );
      for i:=1 to 10 do begin
         if (a[i]>=C) and (a[i]<=D) then writeln(a[i]);
      end;
end.

var x1,y1,x2,y2,d:real;
begin
      writeln('введите A(X1,Y1) и B(X2,Y2)');
      readln( x1,y1,x2,y2 );
      d:=sqrt(sqr(y2-y1)+sqr(x2-x1));
      writeln('длина отрезка |AB|=',d);
end.