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

varx:integer;beginwriteln('Введите числ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.