Даны натуральные числа a, n. Вычислить a (a — n) (a — 2n)…(a – n2) — Pascal(Паскаль)

uses crt;
var
i,n,a:integer;
r:real;
begin
r:=1;
i:=0;
writeln('a?');
readln(a);
writeln('n?');
readln(n);
repeat
r:=r*(a-i*n);
i:=i+1;
until i>n;
writeln(r);
end.