Даны числа х и у, не равные друг другу. Если x меньше y, тогда заменить x половиной их суммы. А если x больше y – заменить х удвоенным их произведением.

var x,y:real;

Begin

 while(x = y) do Begin

   writeln('Введите числа X и Y (x != y)');

   write('X = '); readln(x);

   write('Y = '); readln(y);

 End;

 if(x < y) then x := (x + y) / 2;

 if(x > y) then x := (x * y) * 2;

 write('X = ', x);

End.