Найти произведение чисел натурального ряда от a до b используя цикл с постусловием- Pascal(Паскаль)

program Proizv;
var a,b,pr,i: integer;
begin
writeln('Enter a, b:');
readln(a,b);
i:=a;
pr:=1;
repeat
pr:=pr*i;
i:=i+1;
until i>b;
writeln(pr);
end.