===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var p := BigInteger.One;
for var i := 1 to n do
p *= i;
Writeln(n, '! = ', p)
end.
незнаю что такое схема состава но решается так:
86-8=78 любят игры
(62+54)-78=38 т.е. 38 играют в обе игры