maxi:=1; mini:=1;
  for i:=1 to 4 do begin
    if a[maxi] < a[i] then maxi:=i;
    if a[mini] > a[i] then mini:=i;
  end;

  maxi:= -maxint; mini:= maxint; { <--- Смотри чему равно в начале !!! }
  for i:=1 to 4 do begin
    if maxi < a[i] then maxi:=i;
    if mini > a[i] then mini:=i;
  end;

VAR  i,maxi,mini,dob,kol:integer;
       a:array[1..4] of integer;
BEGIN
for i:= 1 to 4 do
 begin
 write('Vvedite chislo N',i,': ');
 readln(a[i]);
 end;
  maxi:=1;
  mini:=1;
  dob:=1;
  for i:=1 to 4 do
  begin
           if a[maxi] < a[i] then maxi:=i;
           if a[mini] > a[i] then mini:=i;
  end;
       if maxi<mini then
        begin
            i:=maxi; maxi:=mini; mini:=i;
        end;
  for i:=mini  to maxi do
     dob:=dob*a[i];
  Writeln('Dobutok = ',dob);
  readln;

END.