Question

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

Answer 1

Возможно не самое лучшее решение, зато тут нет циклов и всего одна переменная :)
var n:integer;
begin
Writeln('Задайте N');
Readln(n);
if n mod 2 = 1 then 
n:=n+14*n+2*14;
else 
n:=n+1+14*n+2*14;
writeln('Сумма чисел:')
write(n);
readln;
end.