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

Var   x,y,a:real;BeginWrite('x = ');ReadLn(x);Write('y = ');ReadLn(y);if x>y then   Begin   a:=x;   x:=2*x*y;   y:=(a+y)/2;   Endelse   Begin   a:=y;   y:=2*x*y;   x:=(x+a)/2;   End;WriteLn;WriteLn('x = ',x);WriteLn('y = ',y);End.