Отыскать сумму первых 441 нечетных чисел (Паскаль)

Решение задачки: Код написан в программе PascalABC.NET. Var a: array[1..2000] of integer; i, n, sum, k: integer; begin randomize; //Подключение генератора случайных чисел. write(Случайная последовательность: ); sum:=0; n:=2000; k:=0; //Счетчик for i:=1 to n do begin a[i]:=random(1,9); //Наполнение последовательности случайными целыми числами. write(a[i], ); //Вывод через пробел заполненную последовательность на экран в строку. if (odd(a[i]) = true) and (klt;=440) then begin sum:=sum+a[i]; //Вычисление суммы нечетных чисел. k:=k+1; end; end; writeln; writeln(Ответ: сумма первых 441 нечетных чисел одинакова: , sum); end.