Question

ПОМОГИТЕ С ИНФОРМАТИКОЙ
ПАСКАЛЬ
Ввести два числа. Если их произведение отрицательно, умножить его на -2 и
вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран

Answer 1

===== PascalABC.NET =====

begin

   var (a, b) := ReadInteger2;

   var c := a * b;

   Print(c < 0 ? -2 * c : 3 * c)

end.