Дается последовательность из n чисел. найдите количество различных чисел. формат входных данных первая строка входного файла содержит целое число n (1 < = n < = 1000000). в следующей строке n целых чисел, каждое из которых меньше или равно 1000000. формат выходных данных выведите ответ к
var a,n,c,i:longint; MLP: array [1..1000000] of integer;begin read(n); for i:=1 to n do begin read(a); if (MLP[a]=0) then c+=1; MLP[a]:=1; end; write(c);end.