Паскаль построить программу. циклический алгоритм. a (a-1)(a-2)(a--n)

Var   n,a,res:integer; 
 i:integer;
begin 
n:=1;  
write('Введите N:');  readln(n); 
write('Введите a:');  readln(a); 
res:=a; 
for i:=1 to n do 
begin   
res := res*(a-i); 
end; 
writeln('ответ:',res)end.

Пример: 
Введите N:2
Введите a:4
ответ:24