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