Вводится число N. Определить количевство одинаковых и неодинак Вводится число N . Определить, все ли цыфры разные; естли нет, тоговых цыфр в числе.

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(' odinakovih simvolov = ', r:1:0);
end.

uses crt;
var n:longint;
    k,s,r:byte;
    m:set of 0..9;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
m:=[];{пустое множество цифр}
s:=0;{всего цифр}
r:=0;{разных}
while n>0 do{пока число не ноль}
 begin
  k:=n mod 10;{смотрим последнюю цифру}
  s:=s+1;{считаем}
  if not(k in m) then{если ее нет еще в множестве}
   begin
    m:=m+[k];{добавляем}
    r:=r+1;{считаем}
   end
  else if r>0 then r:=r-1;{если уже есть, вычитаем}
  n:=n div 10;{сокращаем число}
 end;
writeln('s=',s,'  r=',r);{выводим для контроля, можно убрать}
if r=s then write('Все цифры разные')
else write('Одинаковых цифр=',s-r);
readln
end.

uses crt;
var n:longint;
    k,s,r:byte;
    m:set of 0..9;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
m:=[];{пустое множество цифр}
s:=0;{всего цифр}
r:=0;{разных}
while n>0 do{пока число не ноль}
 begin
  k:=n mod 10;{смотрим последнюю цифру}
  s:=s+1;{считаем}
  if not(k in m) then{если ее нет еще в множестве}
   begin
    m:=m+[k];{добавляем}
    r:=r+1;{считаем}
   end
  else if r>0 then r:=r-1;{если уже есть, вычитаем}
  n:=n div 10;{сокращаем число}
 end;
writeln('s=',s,'  r=',r);{выводим для контроля, можно убрать}
if r=s then write('Все цифры разные')
else write('Одинаковых цифр=',s-r);
readln
end.