Вычисление суммы членов ряда, используя оператора цикла с предусловием WHILE

[SeeJay]

Доброго времени суток!Выдали тут такую задачу - необходимо вычислить сумму членов ряда, используя при этом цикл с предусловием WHILE задание на рисунке...вобщем, как я понял - нужно чтобы программа выдавала на экран 14 ответов при к=1, к=2, к=3...к=14 с клавы вводить ничего не нужно. буду очень признателен за помощь!

[Google2010]

k:=0;
s:=0;
while k<=14 do
begin 
k:=k+1;
if odd(k) then s:=s+1/(sqr(2*k+1)*(2*k+1))
else s:=s-1/(sqr(2*k+1)*(2*k+1));
writeln(k:4,s:8:3);
end;

[SeeJay]

что то не работает нажимаю запуск, ничего не происходит...

[p51x]

Во-первых, выводить надо только сумму ряда - в самом конце.
Во-вторых, вы описали переменные?
В-третьих, вы уверены что она не работает? Может просто быстро отработала и закрылась?