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

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

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

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