[virus-smal]

Если кому на Delphi надо то вот:

Код:

var a:array[1..2,0..9] of integer;
c:char;
i,k,j:integer;

begin

for i:=0 to 9 do begin
  a[1,i]:=i;
  a[2,i]:=0;
  end;
 read(c);
 while c<>'.' do begin
 k:=ord(c)-ord('0');
 a[2,k]:=a[2,k]+1;
 read(c);
 end;
 for i:=0 to 8  do
 for j:=i+1  to 9 do
 if a[2,i]>a[2,j] then  begin
 k:=a[2,i];
 a[2,i]:=a[2,j];
 a[2,j]:=k;
 k:=a[1,i];
 a[1,i]:=a[1,j];
 a[1,j]:=k;
 end;
 for i:=0 to 9  do
 if a[2,i]<>0 then  write(a[1,i]);
 readln;
 readln;
end.