Дано целое положительное трехзначное число n. Составить программку ,которая определяет заходит

Var n:integer;
Begin
Write('Введите трёхзначное число: ');ReadLn(n);
n:=Абс(n);
if (n div 100 = 8)or((n div 10) mod 10 = 8)or(n mod 10 = 8) then WriteLn('Заходит')
else WriteLn('Не заходит')
End.


Пример работы программки:

Введите трёхзначное число: 85
Входит