const m=1000000;
var
f:text;
a:array[1..m] of 0..1;
n,b,k,i:integer;
begin
assign(f,'input.txt');
reset(f);
readln(f,n);
for i:=1 to m do a[i]:=0;
for i:=1 to n do
 begin
 read(f,b);
 a[b]:=1;
 end;
close(f);
k:=0;
for i:=1 to m do k:=k+a[i];
writeln('k=',k);
end.

Пример исходного текстового файла input.txt:
30
 171 110 113 175 104 152 72 58 86 160 154 145 78 182 124 43 182 193 124 173 177 5 31 79 157 141 167 135 157 138

Результат работы программы:
k=27