PascalABC.NET 3.7:

• ##
• var (a, b) := ReadInteger2('Введите два числа:');
• (a, b) := a+b > 8 ? (a*5, b*5) : (a-7, b-5);
• Print('Результат:', a, b)