Паскаль построить программу. Циклический алгоритм. a (a-1)(a-2)(a-3)...(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