одномерный массив

[KIRILOW]

Даны действительные числа а(1),а(2),...а(30)

Вычислить у=а(1)*a(30)-a(2)*a(29)+a(3)*a(28)-..-a(30)*a(1)

Вот что у меня получилось.(проверьте пожалуйста)

var
y:integer;
i,j:real;
begin
y:=0;
for i:=1 to n do
begin
if odd(i) then
y:=y+a(i)*a(n+1-i) else
y:=y-a(i)*a(n+1-i);
end;
end.

[BDA]

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.

Во-первых, цикл не может быть по вещественной переменной, т.е. i должно быть integer.
Во-вторых, у Вас нет ввода чисел ai.
В-третьих, вся эта сумма сворачивается в простое условие.