Найти сумму семи нечетных чисел натурального ряда, начиная с N>0. . N вводится с...

Question

Найти сумму семи нечетных чисел натурального ряда, начиная с N>0. . N вводится с клавиатуры.

Answer 1

var n,s,i:integer;
begin
write('n = '); readln(n);
if n mod 2 = 0 then n:=n+1;
s:=0;
for i:=1 to 7 do
begin
s:=s+n;
n:=n+2;
end;
writeln('s = ',s);
end.

Пример:
n = 10
s = 119