bacha

program s; var s, n, suma: Integer; begin WriteLn('Įveskite paskutinį sekos skaičių:'); ReadLn(s); n := (s - 1)/2 + 1; suma := (n - 1)*n + n; WriteLn('Suma: ', suma); end.
 
Taip turėtų būti ^_^

Na jei jau norėjai matematiškai išsireikšt tai taip:

suma:=(n+1)(n-1)/4
O tu parašei tik n-tojo nario formulę. ^_^
Anyway, šita užduotis manyčiau labiau skirta perprast ciklų veiklą, negu kuo greičiau suskaičiuot, tad jam labiau vertingas pirmasis variantas. :D

Ko būtent nesupranti? Pradedam nuo 1 ir didinam po 2 kol pasiekiam skaičių n. Didindami sumuojam. Sakykim taip:

i:=1; while i<=n do begin sum:=sum+i; i:=i+2; end;