uses crt;
var s,s1:string;  //исходная строка и ее копия
    a:array[1..100]of integer;//массив количеств каждого символа
    i,j,k:integer;//счетчики
    min,imin:integer;//минимальное количесво раз одного знака и его порядковый номер
begin
clrscr;
write('s: ');readln(s);
s1:=s;
for i:=1 to length(s) do
   begin
     k:=0;
     for j:=1 to length(s1) do
     if (s[i]=s1[j]) then
       begin
         k:=k+1;    //считаем сколько раз каждый символ встречается
         a[i]:=k;   //вводим это число в массив
         min:=a[1];imin:=1; //присваиваем минимальное значение первому элементу
        if a[i]<min then
            begin
              min:=a[i]; //находим минимальное
              imin:=i;    //его номер
            end;
       end;
   end;
write('min el=',s[imin]); //выводим символ, который реже всех встречается
readln
end.