Выяснить, сколько среди заданных чисел различных - Pascal

program task;
const 
  MAXN = 150007;
var
  a : array[0 .. MAXN] of longint;
  n, i, ans : longint;
  
procedure qsort(low : longint; high : longint);
var ii, jj, m, t : longint;
begin
  ii := low; jj := high; m := a[Random(jj - ii + 1) + ii];
  repeat
    while (m > a[ii]) do inc(ii);    
    while (a[jj] > m) do dec(jj);
    if (ii <= jj) then begin
      t := a[ii]; a[ii] := a[jj]; a[jj] := t;
      inc(ii); dec(jj);
    end;
  until (ii > jj);
  if (low < jj) then qsort(low, jj);
  if (ii < high) then qsort(ii, high);
end;
 
begin
  Randomize;
  
  readln(n);
  for i := 1 to n do read(a[i]);
  qsort(1, n);
  
  ans := 1;
  for i := 2 to n do
    if (a[i] > a[i - 1]) then inc(ans);
  
  writeln(ans);
end.