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