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

Program prog;uses crt;var a,b,t: real;beginclrscr;write('a = ');readln(a);write('b = ');readln(b);if (a>b) then   begin   t:=a;   a:=2*a*b;   b:=(t+b)/2;   end;if (a<b) then   begin   t:=b;   b:=2*a*b;   a:=(t+a)/2;   end;if(a=b) then        writeln('Числа равны')        else        writeln('a = ', a, ', b = ', b);end.