Задача с двумя действительными числами

[Лиза_]

Даны два действительных числа a и b(a не равно b). Меньшее из этих двух чисел заменить половиной их суммы, а большее их удвоенным произведением.
Помогите пожалуйста решить!!!

[Hacker19_90]

В чём же собственно у вас проблема?

[BlackFishSQL]

Вот решил наклепать!

......
Начало
 а присвоить значение числа;
 и присвоить значение числа;
 
 если А меньше B то Бегин А присвоить половину их суммы; B присвоить их удвоенное произведение энд
  иначе Бегин B присвоить половину их суммы; А присвоить их удвоенное произведение энд;
Энд.

[Hacker19_90]

Вот решил наклепать!

если следовать в точности алгоритму то получится что-то такое

if a < b then
begin
     a := (a+b)/2;
     b := 2*a*b;
end
else
begin
     b := (a+b)/2;
     a := 2*a*b;
end;

Что само собой не верно! Как бе тут изощерится и написать код без использования доп переменной?

[BlackFishSQL]

Само собой, доп. перемен. нужны! может можно как-то по другому но я не вижу!

[Hacker19_90]

ну мб так

if a < b then
begin
    b := 2*a*b;
    a := (a + b/(2*a))/2;
end
else
begin
    а := 2*a*b;
    b := (b + a/(2*b))/2;
end

ток наверно в точности потеряем!