вводится трёхзначное целое положительное число . определить , есть ли среди его цыфра 0

var a,b1,b2,b3:integer;begin Writeln('введи трёхзначное число'); readln(a); b1:=a mod 10; b2:=(a mod 100)div 10; b3:=a div 100; if (b1=0) or (b2=0) or (b3=0) then writeln('Среди цифр есть 0')                                             else writeln('среди цифр нет 0');     end.