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

var x:integer; begin writeln('Введите числo:'); readln(x); if ((x mod 10)=3)or((x mod 10)=5)or((x mod 10)=8) then writeln('В чсило входит цифра: ',x mod 10); x:=x div 10; if ((x mod 10)=3)or((x mod 10)=5)or((x mod 10)=8) then writeln('В чсило входит цифра: ',x mod 10); x:=x div 10; if (x=3)or(x=5)or(x=8) then writeln('В чсило входит цифра: ',x mod 10); end.