Даны числа х и у, не равные друг другу. Если x

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 lt; y) then x := (x + y) / 2;

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

 write('X = ', x);

End.