Ответ:

удвоенным произведением я понял как 2*(2*3)
если по другому напиши исправлю

Объяснение:

program ReplaceNumbers;

var

 a, b,smaller2, smaller, bigger: real;

begin

 writeln('Enter two numbers (not equal):');

 readln(a, b);

 if a < b then

 begin

   smaller := a;

   bigger := b;

 end

 else

 begin

   smaller := b;

   bigger := a;

 end;

 smaller2 := (smaller + bigger) / 2;

 bigger := 2 * smaller * bigger;

 writeln('The new values are:');

 writeln(smaller2:0:2);

 writeln(bigger:0:2);

 readln;

end.