// PascalABC.NET 3.2, сборка 1346 от 25.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
Writeln('S=',Range(100,123).Sum);
Writeln('П=',Range(100,123).Aggregate(Biginteger(1),(x,y)->x*y))
end.
Результат
S=2676
П=13014890091970928141156779500966563174744064000000