Дано:             s := 0; p := 1; for i := 1 to 4 do             begin                         p := p * i;                         s := s + p             end; writeln (‘сумма факториалов ’,s);