Циклическая программа - QBasic (27551)

Добрый день. Помогите, пожалуйста, с написание программы с таким условием. Заранее большое спасибо.

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

DIM i&,j&,n&,s#,p#
n=5
FOR i=1 TO n
  p=1
  FOR j=i TO i+i
    p=p*j
  NEXT j
  s=s+p
NEXT i
PRINT s

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

DIM i&,j&,n&,s#,p# - объявление пяти переменных типа integer (целые числа) и одной строковой переменной
n=5 - присваивание переменной n значение 5 (количество повторений основного цикла)
FOR i=1 TO n - начало цикла с переменной i от 1 до n
p=1 - присваивание переменной p значение 1 перед началом внутреннего цикла
FOR j=i TO i+i - внутренний цикл, который будет выполняться от i до i+i (т.е. от i до i+1)
p=p*j - умножение переменной p на текущее значение j
NEXT j - переход к следующей итерации внутреннего цикла
s=s+p - прибавление значения переменной p к переменной s
NEXT i - переход к следующей итерации основного цикла
PRINT s - вывод значения переменной s в консоль