Циклы. Не могу довести до ума

[man-utd-]

В общем пример звучит так: Даны числа b и n. Вычислить: P=b*(b+1)*(b+2)*(b+3)*...*(b+n)

program primer_1;
uses crt;
var b,i,n:integer; p,y:real;
begin clrscr;
writeln('Vvedite b,n');
readln(b,n);
P:=1; i:=0; y:=b;
repeat
p:=y*p;
y:=b+i;
i:=i+1;
until i>n;
writeln('P=',P:7:3);
readln;
end.

Помогите доделать пожалуйста Результат неверный выдает

[andrewpalkin]

program primer_1;

var b,i,n,p,y:integer;

begin
  writeln('Vvedite b,n');
  readln(b,n);
  P:=1; i:=0;  
   
  repeat   
    y:=b+i;
    i:=i+1;  
    p:=y*p;
  until i>n;
  
  writeln('P=',P);
  readln;
end.

[man-utd-]

Большое спасибо. Выручили