PASCAL - Найти сумму чисел от 100 до 999 если сумма цифр четная.

(пример на JavaScript); Думаю перевести в Паскаль не сложно.
Узнать четное число или нет можно разделив его по модулю 10 (минимум двузначное число)
Если есть остаток от деления, значит число не четное;
var result = b%10;
if(result < 0){
что делаем если нечетное
}else{
если четное
}
Сумма чисел вычисляется так
var a = 100;
var b = 999;
var summ = ((a+b)/2)*((b+1)-a);

Второго вопроса не понял, в случае нечетной суммы нужно найти количество разрядов числа ?
количество разрядов можно узнать делениями числа на 1 разряд (10), сколько делений пока число не станет меньше 1, столько и разрядов (цифр)
var summ = 0;
do (b/10; summ ++1)while(b>=1);