Даны действительные числа х и у не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее их удвоенным произведением.

var x, y, x1, y1: real;

begin

writeln ('Введите первое дробное число');

readln (x);

writeln ('Введите второе дробное число');

readln (y);

x1 : = x;

y1 : = y;

if x = y then writeln ('Числа равны, противоречие условию!') else begin

if (x > y) then begin

y : = (x1 + y1) / 2;

x : = (x1 * y1) * 2;

end else

begin

x : = (x1 + y1) / 2;

y : = (x1 * y1) * 2;

end;

end;

end.