Дан массив из 13 элементов. элементами массива являются первые 13 нечетных чисел. найти произведение элементов этого массива. написать программу в паскале, как можно проще, без лишних наворотов, .

Var   proizv:int64; 
  a: array [1..13] of integer;
begin
  // заполняем массив
  for var i:=1 to 13 do
    a[i]:=i+i-1;
  proizv:=1;
  // основной цикл
  for var i:=1 to 13 do
    proizv:=proizv*a[i];
  writeln('Произведение = ',proizv);
end.

Это работает в АБС-паскале
Типа данных integer мало для хранения произведения, но int64 - достаточно