Дано трехзначное число, определите, входят ли в него числа 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.