Два числа

[ProgramerBeatz]

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

x,y:real;
begin
write('Введите два числа');
readln(x,y);
Дальше я точно не могу определится, были варианты через case или if, но получался бред.
Для вас эта задача будет на 2 мин, а я токлько начинаю, помогите пож

[ОДИНОЧЕСТВО В СЕТИ]

var x,y,z:real;
begin
write('Введите два числа');
readln(x,y);
if x> y then
begin z:=x;
  x:=z*y*2;
  y:=(z+y)/2;
end
else
begin
z:=y; 
y:=z*x*2;
x:=(z+x)/2;
end;
writeln(x:6:3,y:6:3);
readln;
end.

[russian-stalker]

Уже за месяц,наверное, третье такое задание

[LeBron]

фрагмент замены без доппеременных:

a:=(a+b)/2;
b:=2*(2*a-b)*b;