Написать программу по процедурам с массивами в языке программирования Pascal.Задание:Дан массив целых чисел. Найти сумму положительных нечетных

Предыдущий
вопрос Следующий
вопрос

чисел в массиве.

Пример программы:

program SumOfPositiveOdd;
const
size = 5;
var
arr: array[1..size] of integer;
i, sum: integer;
procedure FillArray;
begin
writeln('Введите элементы массива:');
for i := 1 to size do
begin
readln(arr[i]);
end;
end;
procedure SumOfPositiveOddNumbers;
begin
sum := 0;
for i := 1 to size do
begin
if (arr[i] > 0) and (arr[i] mod 2 <> 0) then
begin
sum := sum + arr[i];
end;
end;
end;
begin
FillArray;
SumOfPositiveOddNumbers;
writeln('Сумма положительных нечетных чисел в массиве: ', sum);
end.

Программа сначала запрашивает у пользователя ввод элементов массива, затем находит сумму положительных нечетных чисел и выводит ее на экран.