Выяснить, сколько чисел входит в последовательность по одному разу

const
  n=10;
var
  c,k,i,j:integer;
  a:array[1..n]of integer;
begin
  c:=0;
  for i:=1 to n do
  begin
    write('a[',i,']:=');
    readln(a[i])
  end;
  for i:=1 to n do
  begin
    k:=0;
    for j:=1 to n do
      if (a[i]=a[j]) and (i<>j) then
        inc(k);
    if k=0 then
      inc(c);
  end;
  writeln('В данной последовательности таких чисел: ',c)
end.

uses Dos;
function Time: Longint;
var h, m, s, s100: Word;
begin
  GetTime(h,m,s,s100);
  Time:=(Longint(h*60+m)*60+s)*100+s100;
end;
const n=15000;
var
  a: array [0..n-1] of Integer;
  c: array [0..n-1] of Integer;
  i, t, k: Integer;
  s: Longint;
begin
  {Randomize;}
  for i:=Low(a) to High(a) do a[i]:=Random(n);
  {1}
  k:=0; s:=Time;
  for i:=Low(a) to High(a) do Inc(c[a[i]]);
  for i:=Low(c) to High(c) do if c[i]=1 then Inc(k){Write(' ',i)}; 
  s:=Time-s;
  WriteLn(k,' ',s/100:0:2);
  {2}
  k:=0; s:=Time;
  for i:=Low(a) to High(a) do begin
    t:=High(a);
    while t>=0 do begin
      if (t<>i) and (a[i]=a[t]) then Break;
      Dec(t);
    end;
    if t<0 then Inc(k){Write(' ',a[i])};
  end;
  s:=Time-s;
  WriteLn(k,' ',s/100:0:2);
end.