Даны натуральные 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;