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

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