Составьте программу,  заменяющую больше из двух данных чисел удвоенным произведением, а меньшее - полусуммой этих чисел

var a,b,a1,b1:real; begin   readln(a,b);   if a = b then writeln('Числа равны')   else     if a>b then begin       a1:=2*a*b; b1:=(a+b)/2;       a:=a1;b:=b1;       writeln('a = ',a,' b = ',b)     end     else begin       b1:=2*a*b; a1:=(a+b)/2;       a:=a1;b:=b1;       writeln('a = ',a,' b = ',b);     end;  end.