{ Автор: Винарский Евгений <[email protected]>, 112 гр.}
program t_11_29_a(input,output);
const n=500;
type
  mas=array [1..n] of 0..99;
function rasl(var a: mas): integer;
var i,k: integer; b: array [0..99] of 0..1;
  begin
    k:=0;
    for i:=0 to 99 do
      b[i]:=0;
    for i:=1 to n do
      if(b[a[i]]=0) then
        begin
          k:=k+1;
          b[a[i]]=1;
        end;
    rasl:=k;
  end;