Дано натуральное число n. вычислить a(a-n)(a--nn)

Var   a, n, p: longint;   i: integer; begin   write('введите через пробел a и n: ');   readln(a, n);   p : = a;   for i : = 1 to n do p : = p * (a - i * n);   writeln('произведение равно ', p) end. тестовое решение: введите через пробел a и n: 3 7 произведение равно 884932096

Const  n=5; var     a: array [1..n,1..n] of integer;     b: array[1..n*n]of integer;     i,j,k,p: integer;     f: boolean; begin k: =0; for i: =1 to n do   begin   for j: =1 to n do     begin     a[i,j]: =random(100);     write(a[i,j]: 5);     f: =true;     for p: =2 to (a[i,j] div 2) do       if a[i,j] mod p=0 then f: =false;         if f then           begin           k: =k+1;           b[k]: =a[i,j];           end;         end;   writeln;   end; write('искомый массив: '); for p: =1 to k do write(b[p],' ');   end.

Pascalabc.net uses   system.collections.generic; var   arr: list< single> : = new list< single> ();   i: integer; begin   writeln('i': 2, 'arr[i]': 7, #13, new string('-', 9));   for i : = 1 to 10 do   begin     arr.add(random(-5, 5));     writeln(i: 2, arr[i - 1]: 7);   end;   writeln(new string('-', 9));   arr.removeat(3);   for i : = 1 to 9 do     writeln(i: 2, arr[i - 1]: 7); end.