программа ранжирования, найти произв. 3-х наименьших эл-ов масс. Опции

[МОСКВА]

используя программу ранжирования, найти произведение 3-х наименьших элементов массива, массив одномерный, рандом из отрицательных и положэительных чисел.
люди, что такое ранжирование? объясните плиз алгоритм...остальное сам напишу.

[kuzya]

и как volvo всё это...

даю:

 uses crt;
var
M,Min: array [1..100] of integer;
a,c,j,i,o:integer;
min1,min2,min3:integer;

BEGIN
clrscr;
randomize;
writeln('enter a');
readln(a);

for i:=1 to a do M[i]:=random(100)-50;  {заполняем массив}

for i:=1 to a do begin
 for j:=1 to a-1 do
  if M[j+1]<M[j] then begin
   c:=M[j]; M[j]:=M[j+1]; M[j+1]:=c;
   {сортируем по убыванмю, с - просто дополнительная переменная}
  end;
end;

for i:=1 to a-1 do if M[i]<>M[i+1] then begin inc(o); min[o]:=M[i]; end;
{добавляем все члены массива M в Min без одинаковых членов}
writeln;
write(Min[1],' ',Min[2],' ',Min[3]);      
readkey;
END.