Функция проверки делимости

[Kazik]

Помогите плиз ребята...срочно нужно лабу сдавать...а сам дуб-дубом

Для делимости числа на 8 необходимо, чтобы число из последних четырех цифр делилось на 8. Написать функцию проверки делимости числа n на 8.

[Sciv]

if (n mod 10000 div 1000+n mod 1000 div 100 +n mod 100 div 10+n mod 10) mod 8=0 then WriteLn('Делится');