Помогите составить задачу на Паскале

Question

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

Оличка · Accepted Answer

x:=(a+b)/2; 
z:=(a*b)*2; 
if (a < b) then 
begin 
a:=x; 
b=:z; 
end; 
else 
begin 
a:=z; 
b:=x; 
end; 
 
вроде так ...