Создать массив из первых n-факториалов натуральных чисел

Можно тоже самое но только на паскале?

C++#include <iostream>using namespace std;int main(){  int n, i, j;  cin >> n;  int a[n];  for (i = 1; i <= n; i++)    for (j = 1, a[i] = 1; j <= i; j++)      a[i] *= j; }Pascalvar a:array[1..1000] of integer;n, i,j:integer;beginread(n);for i:=1 to n dobegina[i]:=1;for j:=1 to i doa[i]:=a[i]*j;end;end.