Вычислить произведение чисел:P=N*(N+1)*(N+2)*(N+3)*…..*( N+R) при (N

program proizvedenie;
Var P,K,N:ineteger;
begin
writeln('Vvedite K i N');
readln(N,K);
p:=1;
while n<K do begin
 p:=p*n;n:=n+1;
end;
writeln(p);
end.