У Вас на скриншоте уже есть ответ.
Замените
s := 0; на s := 1;
s := s + i; на s := s * i;
и будет считаться не сумма а произведение
Объяснение:
