A)
var
a,b,c,n: integer;
begin
readln(a,n);
b:=1;
c:=a*(a+1);
repeat
b:=b+1;
c:=c*(a+b);
until b=n-1;
writeln(c);
readln;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.