Var a, b:Integer ;
Begin
Write('a=') ;read(a) ;
Write ('b=') ;read(b) ;
If a>b then a:=2*a*b;
If b>a then b:=2*a*b;
Write(' a=',a,' b=', b) ;
End.
