Найти сумму (a1-b1)^2+...+(a30-b30)^2

[dmitriy20104]

Найти сумму (a1-b1)^2+...+(a30-b30)^2, где
Если i - нечетное: аi=i, bi=i^2.
Если i - четное: ai=1/2, bi=i^3.

[BDA]

Что не получается сделать?

var
  s: real;
  i: integer;

begin
  s := 0;
  for i := 1 to 30 do
    if i mod 2 = 0 then
      s := s + sqr(1 / 2 - i * i * i)
    else
      s := s + sqr(i - i * i);
  writeln(s:0:3);
  readln;
end.

Убрал спойлер - разберИтесь

[dmitriy20104]

Все. Я не пойму, как там цикл записать.