Проблема с кешырованием в паскале

[Sarumjan]

Вот условие: Дано натуральное число n. Вычислить сумму тех чисел вида i*i*i-3*i*n*n+n (i=1,2,3,4,...,n) что представляют собой утроеные нечетные числа.

вот сам код рабочей програмы

program bl;
uses crt;
var i,n,s,g:integer;
k:char;
begin
repeat
clrscr;
write('vvedite N:  ');
readln(n);
for i:=1 to n do
g:=0;
g:=(i*i*i)-(3*i*(n*n))+n;
if (odd(g)=True) and(g mod 3=0) then s:=s+g;
write(s);
writeln;
writeln('Xotite povtorit? y/n ');
readln(k);
until k='n';
end.

Проблема в том што когда я ввожу N, оно щитает все правильно, а дальше я жму повторить, и делаю все тоже самое, дак оно выводить не результат етого подщета, а сумирует предыдущий результат с новым, мне нада штоб оно не брало результат прошлых подщетов и не прибавляло к новым.

[Evgeniy26]

Обнулите s:

program bl;
uses crt;
var i,n,s,g:integer;
k:char;
begin
repeat
s := 0;
clrscr;
write('vvedite N:  ');
readln(n);
for i:=1 to n do
g:=0;
g:=(i*i*i)-(3*i*(n*n))+n;
if (odd(g)=True) and(g mod 3=0) then s:=s+g;
write(s);
writeln;
writeln('Xotite povtorit? y/n ');
readln(k);
until k='n';
end.

Что вы тут делаете n - ое число раз обнуляете g:

for i:=1 to n do
g:=0;
g:=(i*i*i)-(3*i*(n*n))+n;

[Sarumjan]

А точно, пропустил, сенк.

[Evgeniy26]

Это

for i:=1 to n do
g:=0;
g:=(i*i*i)-(3*i*(n*n))+n;

Все равно что

for i:=1 to n do
g:=0;
g:=(n*n*n)-(3*n*(n*n))+n;

и

for i:=1 to n do
g:=(n*n*n)-(3*n*(n*n))+n;

и

g:=(n*n*n)-(3*n*(n*n))+n;