Розв’язок задачі з Абрамова №335а

Всі умови | Умова: Дано натуральне число n. Обрахувати... (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №335)

program p335_1;
var
  s, k, j, n, c : integer;
begin
  write('n = '); readln(n);
  s := 0;
  for k := 1 to n do
  begin
	c := 1;
	for j := 0 to k do
	  c := c * (k + j);
	s := s + c; 
  end;
  
  writeln('Suma: ', s);
  readln;
end.