помогите! ! Нехай х0=1, xn=xn-1+2n, де n=1, 2, … Визначити значення хn та Sn

var
c, n: integer;
xn, sn: longint;
begin
write('n? ');
readln(n);
xn := 1; sn := 1;
for c := 1 to n do begin
inc(xn, c * 2);
inc(sn, xn);
end;
writeln('xn: ', xn, '; sn: ', sn);
end.