Написать программу на Паскале, которая вычисляет сумму первых N членов ряда: 1, 3, 5, ...

Указанный в задаче ряд представляет собой ряд положительных нечетных чисел, которые можно найти используя формулу 2n-1, где n больше или равна 1.

program ex29;
uses
crt;
var
i, n, s: integer;
begin
clrscr;
s:=0;
write('Введите количество элементов последовательности n=');
readln(n);
for i:=1 to n do
begin
s:=s + (2*i-1);
end;
write('s=',s:6);
readln;
end.