массив

[KIRILOW]

Объясните пожалуйста,для чего нужен каждый из этих операторов?

var
  y: real;
  n: integer;

begin
  readln(n);
  //ввод аi чисел
  if odd(n) then
  begin
    y := a[n div 2 + 1] * a[n div 2 + 1];
    if odd(n div 2) then
      y := -y;
  end
  else
    y := 0;
  writeln(y);
end.

[VIK_aka_TOR]

успехов..))