Вычислить сумму ряда - QBasic (27316)

Помогите пожалуйста решить две задачи: 1.Дано натуральное число N. Вычислить: 2. Дано натуральное число N. Вычислить число первых сомножителей:

Листинг программы

CLS
INPUT "N = "; n
 
FOR i = 1 TO n
   p = 1
   FOR j = i TO 2 * i
      p = p * j
   NEXT j
   s = s + p
NEXT i
PRINT "S ="; s
END

Объяснение кода листинга программы

В этом коде на языке QBasic происходит вычисление суммы ряда. Вот список действий, которые происходят в коде:

Ввод значения переменной n с помощью функции INPUT.
Начало цикла FOR, который будет выполняться n раз.
Внутри цикла установлен начальный значение переменной p равным 1.
Запуск второго цикла FOR, который будет выполняться от i до 2*i.
Внутри второго цикла значение переменной p умножается на текущее значение переменной j.
Значение переменной p добавляется к переменной s.
Выход из второго цикла FOR.
Выход из первого цикла FOR.
Вывод значения переменной s с помощью функции PRINT.