Вот пример кода программы:
var a:integer;
begin
a := 101010100;
if ((a mod 1000 <> 0) or (a mod 10000 = 0)) then
writeln('Не заканчивается на 000')
else
writeln('Заканчивается на 000');
end.
