const
 n = 50; { размер линейной таблицы }

var
 table: array[1 .. n] of integer; { сама таблица }
 was: array[1 .. n] of integer; { доп. массив }

 i, j, current, count: integer;
 found: boolean;
begin
 { ввод таблицы }
 ...

 { подсчет }
 for i := 1 to n do
   begin
     found := false;
     for j := 1 to current do
       found := found or (was[j] = table[i]);
     if not found then
        begin
           inc(current); was[current] := table[i];
        end
   end;
 writeln('количество различных чисел = ', current)
end.

const n=100;
var a:array[1..n] of integer;
     i,j,k:integer;
begin
 k:=0;
 for i:=1 to n do a[i]:=random(1000);
 for i:=1 to n do if a[i]=0 then k:=1;
 for i:=1 to n-1 do
   for j:=i+1 to n do
     if a[j]=a[i] then a[j]:=0;
 for i:=1 to n do if a[i]<>0 then Ink(k);
 writeln(k);
end.