Задание по ИКТ! Составить программу с пояснениями! Дан целочисленный массив с числом элементов N и вывести из него нечетные элементы и их сумму. В паскале а если еще можно то блок схему)

Program mas;

const n=4; / / число элементов

var a: array [1 ... n] of integer; / / массив

i, sum: integer; / / переменные

begin / / начало

sum:=0; / / сумма=0

for i:=1 to n do readln (a[i]) ; / / вводим массив

for i:=1 to n do / / цикл

if (a[i] mod 2 0) then / / условие нечетности

begin

writeln (a[i]) ; / / выводим нечетные

sum:=sum+a[i]; / / считаем сумму

end;

writeln (sum) ; / / выводим сумму

end. / / конец