Даны натуральные n, целые числа a1, … , an. найти сумму неповторяющихся элементов массива.

  for i: =1 to n do          begin           k: =0;             for j: =1 to n do               if a[i]=a[j]then inc(k);               if k=1 then begin                   write (a[i],' ');                   s: =s+a[i];                 end;       end;

в двоичной 1000001

в восмеричной 101

в шеснадцатеричной 41