Даны два вещественных числа X и Y, не равные друг другу. Заменить меньшее из этих чисел половиной их произведения, а большее их разностью.

Паскаль:

var x,y,m,b:real;

begin

write('Введите x, y: ');

readln(x,y);

m:=(x+y)/2;

b:=2*x*y;

if x<y then

 begin

 x:=m;

 y:=b

 end

 else

   begin

   x:=b;

   y:=m

   end;

writeln('x=',x,'; y=',y);

end.