ООЧЕНЬ НУЖНА ПОМОЩЬ! НУЖНО НАПИСАТЬ ПРОГРАММЫ

2. Найти сумму чисел массива в переменной Sum, а потом: Writeln ('Сумма элементов массива четное число=', not odd (Sum); 1. var m: array[1… 100] of integer; i,a,n: integer; beginwrite ('Введите размерность массива: '); readln (n); write ('Введите число А: '); readln (a); writeln ('Введите массив: '); for i: =1 to N doreadln (m[i]); writeln ('Массив: '); for i: =1 to N doM[i]: =m[i]-a; for i: =1 to N dowrite (M[i],'); end.