program test;var a, b: integer;begin write('Enter two numbers: '); readln(a, b); if a*b < 0 then writeln(a*b*(-2)) else writeln(a*b*3); readln;end.