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

Возможно не самое лучшее решение, зато тут нет циклов и всего одна переменная :)var n:integer;beginWriteln('Задайте 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.