Вопрос по информатике:

Почему программа(паскаль) не выполняет первое условие if?
program tn;
var a: integer;
begin
writeln ('Введи число');
read(a);
if ((a>=1000)and (a<100))then writeln ('Ошибка');
if (((a mod 10) + ((a div 10) mod 10) + a div 100 ) mod 2 = 0) then writeln ('Сумма цифр данного трехзначного числа-четное число')else writeln('Сумма-число нечетное');
end.