Вот пример кода программы:

var a:integer;

begin

 a := 101010100;

 if ((a mod 1000 <> 0) or (a mod 10000 = 0)) then  

   writeln('Не заканчивается на 000')

 else

   writeln('Заканчивается на 000');

end.