Подпрограммы; прогрессия

[superDmitry]

Уважаемые форумчане! Подскажите пожалуйста в чём ошибка?
y=1+3+5+...+(2n-1)

program 7;
Var a:integer; L:Real;
//----------------------------------
function DeathStar(n: integer): Real;
   var S:Real;
begin
S:=0;
   For 1 to n do
       Begin

s:=1+(2*n-1) ;
       end;
   DeathStar:=s;

end;
//----------------------------------

begin
For a:=0 to n do Begin
L:=DeathStar(n);
Writeln(L:2:5);
End;
Readln;
end.

Заранее огромное спасибо!

[GetMax]

Попробуйте так

Var a:integer; L:Real;
//----------------------------------
function DeathStar(n: integer): Real;
var S:Real;
    I:Integer;
begin
S:=0;
For I:=1 to n do
Begin

s:=s+(2*i-1) ;
end;
DeathStar:=s;

end;
//----------------------------------

begin
Readln(A);
L:=DeathStar(A);
Writeln(L:3:0);
Readln;
End;

[superDmitry]

Спасибо огромное! всё заработало!