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