uses Crt;
var  x, y, Sum, Pro: real;
begin
 ClrScr;
 Write (' x = ');  ReadLn(x);
 Write (' y = ');  ReadLn(y);
 Sum:=(x+y)/2;  Pro:=2*x*y;
 if (x<>y) then
   if x<y then
     begin
       x:=Sum ; y:=Pro;
     end
   else
      begin
        x:=Pro; y:=Sum;
      end;
  WriteLn;
  WriteLn (' x = ', x:4:2);
  WriteLn (' y = ', y:4:2);
  ReadLn;
  end.