Ранжирование и умножение масива

[11111]

Люди помогите пожайлуста сделать задачу.
используя программу ранжирования(сортировки), найти произведение 3-х наименьших по модулю элементов массива Т=(2,-1,3,-2,1,5,-3,2,4,1) Распечатать массив до и после ранжирования . И ещё если несложно посмотри в чём у меня тут ошибка.
Задание
найти произведение элементов с чётными номерами массива

program proiz;
var
A:array[1..100] of integer;
p,i,n,m:integer;
BEGIN
repeat
        write('Vvedite razmernost masiva'); readln(n);
until n<=100;
p:=1;
for i:=1 to n do
       begin
          write('a[',i:2,']=');
readln(a[i])
       end;
  begin
  if a[i] mod 2=0 then
    p:=p*a[i];
   end;
  write('proizvedenie elementov= ',p);
readln;
end.

[Stilet]

 begin
  if a[i] mod 2=0 then
    p:=p*a[i];
   end;

Тут нужно так:

for i:=0 to 100 do
 begin
  if a[i] mod 2=0 then
    p:=p*a[i];
   end;

[vit_galina]

Сообщение от 11111

И ещё если несложно посмотри в чём у меня тут ошибка.
Задание
найти произведение элементов с чётными номерами массива

program proiz;
var
A:array[1..100] of integer;
p,i,n,m:integer;

С учетом уже указанных замечаний еще необходимо переменную произведения описать как p:Real, так как при произведении 100 чисел можете выйти за диапазон значений Integer: -32768..32767.

[vit_galina]

Сообщение от 11111

Люди помогите пожайлуста сделать задачу.
используя программу ранжирования(сортировки), найти произведение 3-х наименьших по модулю элементов массива Т=(2,-1,3,-2,1,5,-3,2,4,1) Распечатать массив до и после ранжирования .

Рабочий модуль. Ввод и вывод оформите по усмотрению.

PROGRAM S;
{UPORYADOCHEVANIE PO MODULYU}
{PROIZVEDENIE PERVYX TREH}
CONST N=10;
 T   : ARRAY[1..N] OF INTEGER =(2,-1,3,-2,1,5,-3,2,4,1);
VAR 
    I,J,L,B,MIN,P: INTEGER;
 BEGIN
 {VIVOD MASSIVA}
  WRITE (' ISHODNY MASSIV: ');
  FOR I:=1 TO N DO
  WRITE(T[I]:3);
  WRITELN;
  {UPORYADOCHEVANIE }
  FOR I:=1 TO N-1 DO
    BEGIN
      MIN:=ABS(T[I]); L:=I;
       FOR J:=I+1 TO N DO
          IF ABS(T[J]) <  MIN THEN BEGIN  MIN:=ABS(T[J]); L:=J; END;
      IF L>I THEN BEGIN B:=T[I]; T[I]:=T[L]; T[L]:=B; END;
   END;
  {VYVOD UPORYAD. MASSIVA}
  WRITE ('UPORYAD. MASSIV: ');
  P:=1;
  FOR I:=1 TO N DO
  BEGIN
{proizvedenie}  
IF I<=3 THEN P:=P*T[I];
{vyvod massiva}
  WRITE(T[I]:3);
  END;
WRITELN;
 WRITELN('PROIZVEDENIE P=',P:4);
 WRITELN('NAJMITE ENTER ');
 READLN;
END.

оформляем код, с использованием тегов (кнопочка #CODE - расширенный режим)