Дается последовательность из N чисел. Найдите количество разных чисел. Формат входных

program zz1;

var  i, k, n, v, j:integer; // задаем переменные целого типа

m:array [1..1000000] of integer;

begin

readln(n); // вводим количество чисел в последовательности

for i:=1 to n do  // получаем n чисел с клавиатуры и записываем их в массив

read(m[i]);

for i:=1 to n do  

begin

for j:=1 to n do

if m[i] = m[j] then k:=k+1; // считаем сколько раз встречается в последовательности число

if k=1 then v:=v+1; // если число повстречалось один раз, то считаем ответ

k:=0;

end;

write( количество различных чисел = , v); // выводим ответ

end.