разветвление в паскале

[lubov_morkov]

Даны действительные числа х и у, не равные друг другу. меньше их этих чисел заменить половиной их суммы, а большее - их удвоенным произведением. Сделать в turbo pascal

[Roof]

program lubov;
uses Crt;
var
  a, b: Real;
begin
  ClrScr;
  {Vvodim a b 4erez probel}
  WriteLn('Vvedite a b');
  Read(a);
  Read(b);
  
  if a < b then
  begin
    Writeln('a < b');
    a := (a + b)/2;
    b := a * b * 2;
  end;
  
  if b < a then
  begin
    Writeln('b < a');
    b := (a + b)/2;
    a := a * b * 2;
  end;
  
  Writeln('a = ', a:6:2, ' b = ', b:6:2);
  
  Readln;
end.

[lubov_morkov]

спасибо большое