Ответ:

var

 k, min, max, sum, f, b: integer;

 A: array[1..6]of integer;

begin

 writeln('Введите 6 чисел');

 k := 1;

 while k <= 6 do

 begin

   readln(A[k]);

   inc(k);

 end;

 max := A[1];

 min := A[1];

 k := 2;

 while k <= 6 do

 begin

   if A[k] > max then max := A[k]

   else if A[k] < min then min := A[k];

   inc(k);

 end;

 writeln('Максимальное число ', max);

 f := max mod 10;

 b := max div 10;

 max := f * b;

 writeln('Произведение чисел максимального числа: ', max);

 writeln('Минимальное число ', min);

 f := min mod 10;

 b := min div 10;

 min := f + b;

 writeln('Сумма минимального числа: ', min);

end.