Прокомментировать код

var
   n : longint; 
   max1, max2, max3 ,pr : longint;
   min1, min2 : longint;
     
   k : integer; 
   i : longint;
begin
     assign(input, 'input.txt');
     reset(input);
     assign(output, 'output.txt');
     rewrite(output);
     max1 := -10000; max2 := max1; max3 := max1;
     min1 := 10000; min2 := min1;
     readln(n);
    
     for i:=1 to n do
      begin
         read(k);
         if k > max1 then 
           begin 
 max3 := max2; max2 := max1; max1 := k; 
           end 
         else
         if k > max2 then 
           begin 
 max3 := max2; max2 := k; 
           end 
         else
         if k > max3 then 
              max3 := k;
 
         if k < min1 then 
          begin 
              min2 := min1; min1 := k; 
          end 
         else
         if k < min2 then 
              min2 := k;
      end;
 
      if (max1 > 0) and (min1*min2 > max2*max3) then
         writeln(max1, ' * ', min1, ' * ', min2)
      else
      begin
         write(max1, ' * ', max2, ' * ', max3); 
          pr:=max1*max3*max2;
          write (' = ',pr);
      
      close(input);
      close(output);
      end;
end.