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

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.