Цикл будет работать до числа 15. Переменная s будет увеличиваться на 1, если остаток при делении равен 1. Получается, что s будет увеличиваться при нечетных числах. Всего их 8, соответственно s = 8. Таблицу смотри во вложении.
Var
A,N:integer;
P:real;
Begin
Write('A = ');
ReadLn(A);
Write('N = ');
ReadLn(N);
P:=1;
For N:= 0 to N-1 do
P:=P*(A+N);
WriteLn('P = ',P)
End.
Прилагаемый файл - документ Excel с требуемым листом (без оформления)
<span>Переменные которые находятся в основной программе будут глобальными, а в процедуре локальными.</span>