Дано трехзначное число, определите, входят ли в него числа 3,8,5 Программа Паскаль

program chislahomework;

var

q:integer;

begin

writeln ('Введите числo:');

readln (q);

if ((q mod 10) = 3) or ((q mod 10) = 5) or ((q mod 10) = 8) then

writeln ('В число входит цифра: ', q mod 10);

q:=q div 10;

if ((q mod 10) = 3) or ((q mod 10) = 5) or ((q mod 10) = 8) then

writeln ('В число входит цифра: ', q mod 10);

q:=q div 10;

if (q=3) or (q=5) or (q=8) then

writeln ('В число входит цифра: ', q mod 10);

end.