Напишите программы вычисления произведения: a*(a+1)*(a+2)**(a+n-1)

Program lol (input, output);
var a, n, b, i:integer;
begin
read (a, n);
b:=a;
for I=1 to n-1 do
a:=a*(b+I);
writeln (a);
end.