for (задача на Delphi)

[drikusik#]

Дано целое число N(>0). Найти квадрат данного числа используя для его вычисления следующую формулу:

N^2 = 1+3+5+...+(2*N-1)
После добавления к сумме каждого слагаемого выводить текущее значение суммы (в результате будут выведены квадраты всех целых чисел от 1 до N).


Помогите пожалуйста.

[Скандербег]

var
  Sum, I, N : Integer;

begin
  N := 5;
  Sum := 0;
  for I := 1 to N do begin
    Sum := Sum + 2*I-1;
    Writeln(Sum);
  end;

  ReadLn;
end.

Изнуренный учебным процессом мозг отказывается думать?

[drikusik#]

Спасибо огромное