program z7_134;
var
b: array[1..100] of integer;
i,n,min,h,k:integer;
begin
write('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ ìàññèâà ');
readln(n);
for i:=1 to n do
begin
write('ââåäèòå ',i,' ýëåìåíò ìàññèâà ');
readln(b[i]);
end;
for i:=1 to n-1 do
begin
min:=b[i];
for h:=i to n do
if b[h]<=min then begin
min:=b[h];
k:=h;
end;
b[k]:=b[i];
b[i]:=min;
end;
k:=1;
for i:=1 to n-1 do
if b[i]<>b[i+1]then k:=k+1;
writeln('êîëè÷åñòâî ðàçëè÷íûõ ýëåìåíòîâ ìàññèâà=',k);
End.