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

Program mas;const n=4; // число элементовvar a: array [1..n] of integer; //массивi, sum: integer; //переменныеbegin //началоsum:=0; // сумма=0for i:=1 to n do readln(a[i]); //вводим массивfor i:=1 to n do //цикл if(a[i] mod 2 <>0) then //условие нечетностиbeginwriteln(a[i]); //выводим нечетныеsum:=sum+a[i];//считаем суммуend;writeln(sum); //выводим суммуend. //конец