Пишу только фрагмент....
Readln(N);
S:=1;
for i:=0 to N-1 do S:=S+(2*i+1);Writeln('Сумма равна ,'S);...
Вот так