Написать программу,которая вычисляет сумму первых N нечетных положительных чисел - Pascal

Формулировка задачи:

Написать программу,которая вычисляет сумму первых N нечетных положительных чисел.Количество чисел должно вводиться во время работы программы.

Решение задачи: «Написать программу,которая вычисляет сумму первых N нечетных положительных чисел»

Листинг программы

uses crt;
var
a:array[1..100] of integer;
i,k,n,s:integer;
begin
clrscr;
randomize;
writeln('vvedite kolichestvo chisel');
readln(k);
for i:=1 to k do
begin
a[i]:=random(41)-15;
write(a[i],' ');
end;
writeln;
repeat
writeln('vvedite n');
readln(n);
until n<=k;
s:=0;
i:=1;
while i<=n do
begin
if (i mod 2<>0)and(a[i]>0) then
s:=s+a[i];
i:=i+1;
end;
writeln('summa: ',s);
readln;
end.

Объяснение кода листинга программы

Этот код написан на языке Pascal и выполняет следующие действия:

Объявляет переменные a, i, k и n для хранения чисел и переменной s для хранения суммы.
Задаёт начальные значения для переменной i и k.
Выводит сообщение для ввода количества чисел.
Считывает количество чисел от пользователя.
Генерирует случайные числа от 1 до 40 и сохраняет их в массив a.
Выводит каждое число из массива a.
Повторяет цикл, пока пользователь не введёт число n.
Проверяет, является ли число i нечётным и положительным.
Если условие выполняется, то добавляет число a[i] к переменной s.
Увеличивает значение переменной i на единицу.
Повторяет цикл, пока значение переменной i меньше или равно значению n.
Выводит сумму чисел.
Ждёт ввода от пользователя.