var a,b:integer;

begin

 writeln('Ввод:');

 write('a= ');

 readln(a);

 write('b= ');

 readln(b);

 if a>b

   then a:=2*a*b;

 if a<b

   then b:=2*a*b;

   writeln;

   writeln('Вывод:');

 writeln('a= ',a);

 writeln('b= ',b);

end.

PascalABC