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

Подойдёт? var  x,y: real; begin  read(x,y);  if x < y then  begin  x := (x+y)/2;  y := 2*x*y;  end  else  begin  y := (x+y)/2;  x := 2*x*y;  end;  write('x=',x,', y=',y);