Question

Ввести 2 числа. Если их произведение отрицательно,
умножить оба на 2 и вывести на экран, в противном случае увеличить
оба в 3 раза и вывести на экран.

Answer 1

PascalABC.NET 3.7:

• ###
• var a := RAI(2);
• var p := a.Product;
• a.Tr(x → p<0 ? x*2 : x*3).Pr