var y,x,p,s,c:real;
begin
write('введите число x=');read(x);
write('введите число y=');read(y);
if x<y then begin c:=x; x:=(x+y)/2; y:=2*c*y;end;
if x>y then begin c:=y; y:=(x+y)/2; x:=2*x*c;end;
writeln('x=',x);
writeln('y=',y);
end.