Вычислить S=1!+2!...+6!

PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (p, s) := (1, 1);

 for var i := 2 to 6 do

 begin

   p *= i;

   s += p

 end;

 s.Println

end.

873