Собака зарыта в строчках
var a:array of integer
...
read(a[i][j])
Смысл в том, что a, похоже, объявлен как одномерный массив, а по твоей задумке он двумерный. Поставь там инициализацию двумерных массивов.
(В PascalABC.Net, если ты тоже в этой среде и этом диалекте, то там я ручаюсь, что там правильно <span>var a:array [,] of integer</span>. Хотя допускаю, что везде одинаково).
Предполагается, что n вводится с клавиатуры.
#include <iostream>
using namespace std;
int main() {
int n;
unsigned long long result=1;
cin>>n;
for(int i=3;i<=n;i++) result+=[](int n)->unsigned long long{
unsigned long long res=1;
for(int i=1;i<=n;i+=2) res*=i;
return res;
}(i);
cout<<result;
return 0;
}
3Кб=3*1024=3072байта
3Кб=3*1024*8=24576бита
<span>2/ точек по вертикали и горизонтали</span>
()()()()()()()()()()()()()()()()
1 10
2 35
3 Количество цифр и сумма цифр
4 1.1
5 16