Задача для Pascal. Дано 3 числа. Найти произведение максимального и среднего.

var

 A: array [1..3] of Integer;

 i, imin, imax, imid: Integer;

begin

   Write('Введите 3 целых различных числа: ');

   Readln(A [1], A [2], A [3]);

   if (A [1] = A [2]) or (A [2] = A [3]) or (A [1] = A [3]) then begin

     Writeln ('Имеются одинаковые числа!');

     Exit;

   end;  

   imin := 1;

   imax := 1;

   for i := 2 to 3 do begin

     if A [i] < A [imin] then

       imin := i;

     if A [i] > A [imax] then

       imax := i;

   end;

   for i := 1 to 3 do begin

     if (i <> imin) and (i <> imax) then

       imid := i;

   end;

   Writeln ('Произведение максимального и среднего числа = ' + IntToStr (A [imax] * A [imid]));

end;