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.
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.