Дан массив целых чисел. выяснить: 1) верно ли, что сумма массива есть честное число; 2)верно ли, что сумма квадратов элементов массива есть пятизначное число.

1) Найти сумму чисел массива в переменной Sum, а потом: 
Writeln('Сумма элементов массива чётное число = ', not odd(Sum));

2) Логарифм десятичный от суммы квадратов возьми и будет тебе счастье.